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###addspace.cgi 



# ! /usr/bin/perl 

####################################4################################3 
## addspace.cgi - processes additional space requests using Epoch's 
## do_approval library function 
## written by Karen Eppinger 

#####################################################################3 

use lib ($ENV{PERL_XDRIVE_LIB} ) ; 

use XDrive :: Error; 

use XDrive :: DatabaseO; 

use XDrive: : DatabaseO: : Table: :Deal; 

use XDrive: : DatabaseO: : Table: :Item; 

use XDrive: : DatabaseO: : Table: :UserData; 

use XDrive: :DatabaseO: :Table: : DiskAccount ; 

use XDrive :: Client :: Actions; 

use XDrive: : Client: :Quota; 

use XDrive: : Sale: : Purchase; 

use Mail : : Sendmail; 

use CGI::Carp qw ( f atalsToBrowser ) ; 

use CGI; 

use XDrive: : Template; 
use XDrive:: CGI qw(:MAIN); 
use XDrive :: Client :: Security; 
use XDrive :: CGI :: Cookie; 
use EpochClient_ssl; 

use strict; 

$ENV{ 1 PATH ? } = '/bin' ; 

delete @ENV{qw(IFS CDPATH ENV BASH_ENV) } ; # Make %ENV safer 
&main ( ) ; 



############################################################################ 

## main: main function calls all others 

## 

## 

############################################################################ 

sub main 
{ 

##the hash that will be filled in and send to the Epoch function 
my %hData; 

my $oCGI = CGI->new{); 

my $oErrors = new XDrive :: Error ; 

my $oDBH = XDrive :: DatabaseO->new () ; 

my $oCookie = XDrive :: CGI :: Cookie->new ( 1 x_session_inf o 1 , $oCGI); 
#### 
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## Validate the user and if an error happens during 

## the validation process die redirect to the error cgi 

#### 

my $o?oken = xd_security_check ( $oDBH, $oCGI , $oErrors } ; 

if ($oErrors->Occurud) 
{ 

xd_fatal_error ($oCGI, ScErrors) ; 

} 

$hData{ 'ipaddr' } = $oCGI->remote_addr ( ) ; 

if ($hData{ 1 ipaddr ' }=~/"192 . 168 . 2/ } 
{ 

$hData{ 1 ipaddr 1 }=' 0. 0.0.0' ; 

} 

my $sUserName = $oToken->data ( 1 user 1 ) ; 
# my $sPartnerCode = $oToken->data ( 1 partner_code ' ) ; 
my $s?artnerCode = $oCookie->getElement (' partner ' ) ; 
my $oTemplate = new XDrive :: Template 

( { 

! partner_code ' => $sPartnerCode 
}); 

##used to figure whether to give user the form or process the form 
my $sAction = $oCGI->param ( "action" ) ; 

## if the action is a request type, we give the user the form 

if ($sAction eq T process T ) 

{ 

##get the date from the form already pre~screened by javascript 
my $returnValue - GetFormData ( \%hData, $sUserName, $oCGI , $oDBH) ; 
if ($returnValue) 
{ 

##call the Epoch function that processes the transaction 
my $sReturnCode = do_approval (%hData) ; 

##if we've been approved $return will contain a number that 
##7 characters and starts with a Y followed by 7 digits 
##only change user's quota if approved 

##else let them Know there was a problem; all problems start 

with N 

ffreturn code could be logged in our database to track 

tranactions 

fttruncate expressions longer than 32 characters 

if (length ($sReturnCode) >32) 

{ 

$sReturnCode = substr ( $sReturnCode, 0 , 32 ) ; 
} 

if ($sReturnCode=~m/ A Y/) 
{ 

##if transaction went through, give them more space 
##and show them the ok screen 
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my $error = 

&Wri'teToPurchaseDatabase ( $sReturnCode, \%hData, $sUserName, $oDBH) / 

if ($error) 
{ 

STransactionOK ($sReturnCode, 
UhData, $sUserName, $oTemplate, $oDBH, $oToken, $oCGI , $oErrors) ; 

$oDBH->commit ( ) ; 

} 

else 
{ 

##error inserting into the database 
&TransactionBad( ' 141 1 , $oTemplate, $oErrors) ; 
$oDBH->rollback{) ; 

} 

} 

elsif ( $sReturnCode=-m/ A N/ ) 
{ 

##tell them there was a problem 

##for some reason we get this returned with 

$sReturnCode=-s/~//; 

my $error = 

&WriteToFailedDatabase ($sReturnCode, \%hData, $sUserName, $oDBH) ; 

&TransactionBad ( $sReturnCode, $oTemplate, $oErrcrs ) ; 
$oDBH->commit () ; 

} 

else 
{ 

##There was a problem connecting to server 
my $error = 

&WriteToFailedDatabase ( T COULDNOTCONNECT\n r , \%hData, $sUserName, $oDBH) ; 

&TransactionBad( 1 COULDNOTCONNECTAn 1 , $oTemplate, $oErrors) ; 
$oDBH->commit ( ) ; 

} 

} 

else 

{ 

##this is someone trying to use the 
##bogus card numbers and isn't one of us 
##don't bother writing to database because 
##it is caught before going to Epoch 

&TransactionBad( ' NMYBADCARD\n 1 , $oTemplate, $oErrors) ; 

} 

$oDBH->disconnect ( ) ; 

} 

elsif ($sAction eq ? intro f ) 

{ 

&ShowIntroPage ($oTemplate, $sPartnerCode, $sUserName, $oToken, $oCGI, $oError 
} 

else 

{ 

&ShowForm ($oTemplate, $sUserName, $oErrors ) ; 

} 

exit; 
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####### ##################################################################### 

## GetFormData: Fills in the hash that is required by Epoch's function 
## Fill in one field at a time because not all fields on tr.e page should go 
## into hash plus a few fields don't come from form 

#####################################################^###^################# 

sub GetFormData (\%, $,$,$) 
{ 

my $hData = shift; 
my $sUserName =shift; 
my $oCGI = shift; 
my $oDBH = shift; 

my $ value = 1; 

##these are mandatory to process the tranaction 

## javascript checks insure users fill the fields with the proper data 
$hData->{ 'transtype 1 } = ' approve' ; 
$hData->{ 1 co_code ' }='xdr' ; 

$hData->{ ' pi_code 1 } = $oCGI->param ( "pi_code" ) ; 
J} $hData->{ 'cardnum' }= $oCGI->param ( "cardnum" ) ; 

Q $hData->{ 'cardexp' }=$oCGI->param ( "cardexp" ) ; 

'H 

UJ ##someone is trying to access from a site other than ours and use the free 

\| credit card 

%i if { ($hData->{ 'cardnum' } eq ' 4 12137 1122223333 1 ) II ($hData-> {' cardnum' } eq 

||| '4111111111111114 , ) ) 

; ; { 

^ if ($hData->{ 'ipaddr' } ne '0.0.0.0') 

|U $value=0; 
} 

} 



Mi 

h 



##not required but used to check for fraud 
$hData->{ ' cardname ' }= $oCGI->param("cardname") ; 
$hData->{ 'street' }=$oCGI->param ( "address" ) ; 
$hData->{ 'city' }=$oCGI->param ( "city" ) ; 
$hData->{ 'state' } =$oCGI->par am ( "state " ) ; 
$hData->{ 'zip' }=$oCGI->param ( "zip" ) ; 
$hData->{ 'phone ' }=$oCGI->param( "phone" ) ; 

##get email out of the database 

my $oDiskAccount = XDrive :: DatabaseO :: Table :: DiskAccount- 
>new (undef , $oDBH) ; 

$oDiskAccount->loadWhere ( ' USERNAME ' , $sUserName; ; 

my $sUserSeq = $oDiskAccount->f etchCoiumn ( ' USER_S£Q f ) ; 

$oDiskAccount->f inish { ) ; 

my SoUserlnfo = XDrive :: DatabaseO: : Table :: User3ata->new (undef, $oDBH) ; 
$oUserInfo->loadWhere { ' SEQ' , $sUserSeq) ; 

$hData->{ 'email' } =$oUserInf o->f etchCoiumn ( ' EMAIL_ADDRESS ' ) ; 
$oUserInf o->f inish ( ) ; 

return $ value; 
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###############*###*######*###########*########*#####«#«#############-###«## 

## ShcwIntroPage: called to show the intro page 
## 

«#########4########«######**##**##tt########*#############*#?######## 9 #####* 

sub ShowIntroPage ($, $, $) 
{ 

my $oTemplate = shift; 
my $sPartnerCode = shift; 
my $sUserName = shift; 
my $oToken = shift; 
my $oCGI = shift; 
my $oErr = shift; 

my ($nUserSeq, $oUserData) ; 

my $oAction = new XDrive :: Client :: Actions ($oToken, $oCGI ) ; 
my $quotaAvailable = $oAction->QuotaFree ( ) ; 
$quotaAvailable = sprintf ( "%2 . 2f " , $quo~aAvailable/lC24 ) ; 

my $oDiskAccount = XDrive :: DatabaseO :: Table :: DiskAccount- 
>new (undef , undef ) ; 

$oDiskAccount->loadWhere ( 1 USERNAMS ' , $sUserName) ; 
my $nUserSeq - $oDiskAccount->f etchColumn ( "USER_SEQ" ) ; 

my $oSearch = XDrive :: DatabaseO: : Search->new ($oDiskAccount->f etchDBO ()) ; 
my $items = $oSearch->XDGetItemsForSale ( $nUserSeq) ; 

my $itemString= f 1 ; 
my $i; 

for $i(0. .$#{$items}) 

{ 

##now using the code, get the description for the item in the 
##proper language. This is kept in List.pm 
my $code = "EPOCH_$items-> [$i] [ 1] " ; 

my $description = $oErr->ReturnMessageGivenCode ; $code ) ; 
$itemString .= "<LI>$description" ; 

} 

## Load the required template HTML files. 
$oTemplate->load { 1 addspace_intro . thtml ' ) ; 
$oTemplate->tags 

({ 

'products' => $itemString, 
'quota' => $quotaAvailable 
} ) ; 

$oTemplate->clear; 

print "Content-type : text/html\n\n" ; 
print $oTemplate->get ( ) ; 

} 



####################################################################.?####### 

## ShowForm: called to show the user the blank form 

## 
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###### ## ## ################################################################## 



sub ShowForm{$, $) 
{ 

my $oTemplate = shift; 
my $sUserName = shift; 
my $oErr = shift; 

my $oDiskAccount = XDrive :: DatabaseO :: Table :: DiskAccount- 
>new(undef , undef ) ; 

$oDiskAccount->ioadWhere ( 1 USERNAME 1 , $sUserNane) ; 
my $nUserSeq = $oDiskAccount->f etchColumn ( *'USER_SEQ" } ; 

my $oSearch = XDrive: : DatabaseO: : Search->new ($oDiskAccount->f etchDBO ()) ; 
my $items = $oSearch->XDGet ItemsForSale ($nUserSeq) ; 

my $oDeal = XDrive: : DatabaseO: : Table : :Deal->new (undef , $oDiskAccount- 
>fetchDBO() ) ; 

my $itemString= ! r ; 
my $i; 

for Si (0. .$#{$items}) 
{ 

$oDeal->loadWhere("ITEM_SEQ", $items->[$i] [0] ) ; 
my $pi_code = $oDeal->f etchColumn ( "PRODUCT_CODE" ) ; 
my $code = "EPOCH_$items-> [$i] [1] " ; 

my $description = $oErr->ReturnMessageGivenCode ( $code) ; 

if ($i == 0) 
{ 

$itemString .= ! <input type="radio" name= n pi_code" value=" ' . 
$pi_code . ! " CHECKED> 1 . $description . f <BR> f ; 
} 

else 
{ 

$itemString .= '<input type="radio" name="pi_code" value=" ' . 
$pi_code . 1 ">' . $description . T <BR> 1 ; 
} 

} 

$oDeal->disconnect ( ) ; 

## Load the required template HTML files. 
$oTemplate->load ( ' addspace_request . thtml 1 ) ; 
$oTemplate->tags 

({ 

'products 1 => $itemString 
}) ; 

$oTemplate->clear; 

print "Content-type: text/html\n\n" ; 
print $oTemplate->get () ; 

} 

##### ###############################################?####################### 
## WriteToFailedDatabase: if the transaction fails write it to the failed 
## transactions table 
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###########################################################################- 

sub WriteToFailedDatabase ($, \%, $, $) 
{ 

my SsTransCode = shift; 
my $hDash = shift; 
my $sUserName = shift; 
my $oDBH = shift; 

my % trans Info; 

##write transaction info into database 

my $oDiskAccount = XDrive :: DatabaseO: : Table :: DiskAccount- 
>new(undef , $oDBH) ; 

$oDiskAccount->loadWhere ( 1 USERNAME 1 , $sUserName) ; 

$transInfo{ 'userjseq 1 } = $oDiskAccount->f etchColumn (' USER_SEQ ') ; 
$oDiskAccount->f inish ( ) ; 
$transInfo{ 1 trans_code* } = $sTransCode; 
$transInfo{ 1 product_code 1 } = $hDash->{ f pi_code 1 } ; 
$transInfo{ T IP ? } = $hDash-> { f ipaddr 1 } ; 

my $intoDB = XDrive :: Sale :: Purchase->new ($oDBH) ; 
my $error - $intoDB->FailedTransaction ( \%translnf o ) ; 

return $error; 

if| #####«###################################################################### 

$ ## WriteToPurchaseDatabase : write the user transaction info to th user_purchase 

Q ## table 

fjj *#t#ttt*#tt#tt#ft*tt#*ft*###f#t##t*#*l#»##**tt##tft#t#t*#*##t*#*#*##tt*###ft?4 

!■ * sub WriteToPurchaseDatabase ($, \% f $, $) 

EI { 

2* my $sTransCode = shift; 

iM my $hDash = shift; 

my $sUserName - shift; 

my $oDBH = shift; 

my %transInfo; 

##write transaction info into database 

my $oDiskAccount = XDrive: : DatabaseO: : Table: : DiskAccount- 
>new(undef , $oDBH) ; 

$oDiskAccount->loadWhere ( 1 USERNAME ' , SsUserName) ; 

$trans!nfo{ 'use^seq' } = $oDiskAccount->f etchColumn ( 1 USER_SEQ 1 } ; 

$ trans Info { 1 account_seq' } = $oDiskAccount->f etchColumn ( r USER_SEQ ' ) ; 

$oDiskAccount->f inish ( ) ; 

$transInfo{ 'trans_code' } - $sTransCode; 

$transInfo{ 1 product_code 1 } = $hDash-> { 1 pi__code ' } ; 

my $intoDB = XDrive :: Sale :: Purchase->new ($oDBH) ; 
my $error = $intoDB->Checkout ( \%translnf o) ; 
return $error; 

} 
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## TransactionOK: if the tranaction was processed and ok'ed, we add the proper 
space to the 

## user's xdrive and let them know the space has been added 

sub TransactionOK($,\%r?f?) 
{ 

my $sTransCode = shift; 
my $hDash = shift; 
my $sUserName = shift; 
my $oTemplate = shift; 
my $oDBH - shift; 
my $oToken = shift; 
my $oCGI * shift; 
my $oErr = shift; 

my $oDiskAccount = XDrive :: DatabaseO :: Table :: DiskAccount- 

>new(undef , $oDBH) ; 

$oDiskAccount->loadWhere ( 1 USERRAME 1 , $sUserName) ; 
my $userSeq= $oDiskAccount->f etchColumn { 1 USER_SEQ' ) ; 

my @aCodes=split(/\|/, $sTransCode) ; 
$aCodes [l]«-s/-//; 
my $sNewQuota; 
my $sAddedSpace; 

my $oDeal = XDrive :: DatabaseO: : Table :: Deal->new (undef, $oDBH) ; 
$oDeal->loadWhere ( 1 PRODUCT_CODE 1 , $hDash-> { ' pi_code 1 } ) ; 
my $itemSeq - $oDeal->f etchColumn ( 1 ITEM_SEQ 1 } ; 
my $oItem = XDrive :: DatabaseO :: Table :: Item->new (undef, $oDeal- 
>fetchDBO() ) ; 

$oItem->loadWhere ( 1 SEQ f , $itemSeq) ; 

my $sCode = "EPOCH_" . $oItem->f etchColumn (■ CODE 1 ) ; 
my $sDescription = $oErr->ReturnMessageGivenCode ( $sCode ) ; 

my $sSpaceToAdd = $oItem->f etchColumn ( ■ NAME 1 ) ; 

my $oAction = new XDrive :: Client :: Actions ($oToken, $oCGI ) ; 
$sNewQuota = $sSpaceToAdd + $oAction->QuotaLimit ( } ; 

tlnow set the new quota 

##in the database and in the ncftpd database 
##used during testing to reset occasionally 
##$sNewQuota = 25600; 
XDQuotaLimit ($sUserName, $sNewQuota) ; 

##insert into the spool to update ftp account 

## Load the required template HTML files. 
$oTemplate~>load ( 1 addspace_ok. thtmi T ) ; 
$oTemplate->tags 
({ 

1 transact ionCode' => $aCodes[l], 
' addedSpace ! => $sDescription 
}); 

$oTemplate->clear; 

print "Content-type: text/html\n\n"; 
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print $oTemplate->get () ; 

} 



#####«###############################################################«##### 
## Transact ionBad: If we get an error code beginning with and N, it 1 s a 
declined tranaction 

## get the error code and give user the bad tranaction page with error code 
####### ##################################################################### 

sub TransactionBad($, $) 
{ 

my $sTransCode = shift; 
my $oTemplate = shift; 
my $oErrors = shift; 

if ($sTransCode!-/ /v \d+$/) 
{ 

Iferror codes contains 
$sTransCode="EPOCH_" . $sTransCode; 
chop{$sTransCode) ; 

} 

##$oErrors->AddErrorByErrorCode ($sTransCode) ; 

$oErrors->AddErrorByCodeIncludes ($sTransCode) ; 
my $sReturnError=$oErrors->Message ($sTransCode) ; 

if ( 1 $sReturnError ) 
{ 

$sReturnError = "The was an problem processing your transaction. 
Please try again."; 
} 

## Load the required template HTML files. 

$oTemplate->load( addspace bad » thtml ) ; 

$oTemplate->tags 
({ 

'error 1 => $sReturnError 
}) ; 

$oTemplate->clear; 

print "Content-type: text/html\n\n" ; 
print $oTemplate->get { ) ; 

} 
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###clientjnfo.cgi 



# ! /usr/bin/perl 

use lib ($ENV{PERL_XDRIVE_LIB} ) ; 
use CGI; 

exit &main; 

sub main () 
{ 

my $oCGI = CGI->new(); 

##get this info from Michael Ryan f s or Gavin's client 
my $sUsername = $oCGI->param ( 1 username 1 ) ; 

my $sClientType = $oCGI->param ( ' client_type ' ) ; 
my $sClientVersion = $oCGI->param ( 1 client_versicn' ) ; 
L» my $bFirstTime = $oCGI->param ( 1 f irst_time 1 ) ; 

ri 

S ##hash of NT info for current version of client 

J*j ##version 1,0 is 0 in the array of upgrades 

^ my %infoNT; 

my @featuresNT; 

N $infoNT{ ! current_version f } = '1.0'; 

\| $infoNT{ T force_upgrade ! } = 0; 

yi . $infoNT{ f client_url f } = 'http: //www. xdr ive.com/download/xdr ivent.exe' ; 

s" 1 ##holds the first array subscript in which upgrade info is kept 

p $infoNT{ 1 1.0' } = 0; 

nj $featuresNT [0] [0] « 'beta release 1 ; 

\'i ## $featuresNT[0] [1] = 'First new feature'; 

p5 ## $featuresNT[0] [2] = 'Second new feature'; 

M 

Q ##hash of 95 info for current version of client 

?1j ##version 2.03 is 0 in the array of upgrades 

my %info95; 

my @features95; 

$info95{ 'current^version* } = ! 2.03'; 
$info95{ 1 force_upgrade ! } - 0; 

$info95{ 'client_url f } = 1 http: //www. xdrive . com/download/xdrive . exe ' ; 

$info95{ '2.00 f } = 0; 

$info95{ '2.01' } - 1; 

$info95{ '2.02' } = 2; 

$info95{ '2. 03' } = 3; 

$info95{ '2.04'} = 4; 

$features95 [3] [0] = 'automatic proxy support.'; 

## examples of other features 

## $features95[0] [1] = '2.03 feature 1'; 

## $features95[0] [2] = '2.03 feature 2'; 

## $features95[l] [0] = '2.04 feature 1»; 

## $features95[l] [1] - '2.04 feature 2'; 

my $returnString= r 1 ; 
my $ref_to_hash; 
my $ref_to_array; 
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##point to hash and array for type of client 
##this way no need to create separate functions 
if ($sClient?ype =~ / A xdwin9x/) 
{ 

$ref_to_hash=\%info95; 
$ref_to_array=\@features95; 

} 

elsif ($sClientType / A xdwinnt/) 
{ 

$ref_to_hash=\%infoNT; 
$ref_to_array=\@featuresNT; 

} 

else { } 

if ( ($sClientType =~ / A xdwin9x/} || ($sClientType =~ / A xdwinnt/)) 
{ 

##if the user's version of the client is older than the 
M ##current version, ask them to upgrade and tell them 

Q ##about new features 

Q my $f eature_text=' 1 ; 

\l if ($ref _to_hash->{ 1 current_version 1 } > $sClientVersion) 

ui { 

£1 tiget all features from the version 1 above the user's 

Jl ##to the current version 

^ my $array_number_start = $ref_to_hash-> { $sClientVersion} + 1; 

«H my $array number_end = $ref__to__hash->{ $ref_to_hash- 

^ >{ ! current_version f } } ; 

Q ##Assemble a big string of new features for 

f|j f#newer versions than user has 

M my $ j ) ; 

for $i ($array_number_start . . $array_number_end) 

n i 

SI for $j {0 $#{$ref_to_array->[$i] }) 

$feature_text .= " - " . $ref_to_array-> [$i] [$ j ] . 

"I"; 

} 



$returnString = join ("\n", 

"client_version=$ref_to_hash->{ 1 current_version 1 }" , 
"force_upgrade=$ref_to_hash->{ ' f orce_upgrade ' }", 
"client_url=$ref_to_hash->{ ' client_url ' } ", 
" client_text=$ f eature_text " , 
) ; 

} 

else 
{ 

$returnString = join ("\n", 
"clienr_version=0. 0", 
" f or ce_upgrade~- 1 " , 

"clienc_url=No url. Please contact X: drive", 

"client_text=", 

) ; 

} 
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print $oCGI->header() ; 
print $returnString; 

##if ($bFirstTime) 
. ## { 

## Record the version number 
## XDClientFirstTimeUse 
## ( 

## $sUsername, 
## $sClientType, 
## $sClientVersion 
## ); 
## } 

} 



SI 



m 



'.JVT 

ru 



d:\my documents\x-<irive\aI] cgi fites.toc.aj.doc 



12 of 148 



###cookie.cgi 



# ! /usr/bin/perl 

# Written by Martin Hald <mhald@geotribe . com> to verify that the user is 

# good to login, if they are then log them in and otherwise redirect to 

# a not authorized page. 



use strict; 

use lib ($ENV{PERL_XDRIVE_LIB} ) ; 
use XDrive: : DatabaseO: : Table: : DiskAccount ; 
use XDrive: :DatabaseO: : Table: : UserSettings; 
use XDrive: :DatabaseO: : Table: :UserQuota; 
use XDrive: :DatabaseO: : Table: : Language; 
use XDrive: : DatabaseO :: Search; 



.fSSJ 



use CGI; 

use XDrive: : CGI :: Cookie; 

use CGI:: Carp qw (f atalsToBrowser ) ; 



use XDrive 
use XDrive 
use XDrive 
use XDrive 
use XDrive 
use XDrive 
use Mail 



:CGI; 

: Client : : Security; 
: Error; 
: Template; 
: Library; 
: DatabaseO; 
Sendmail; 



ri! 



&main; 
exit ; 

sub main 



{ 

my 


$oCGI 


= new 


CGI; 




my 


$oErr 


= new 


XDrive : 


: Error; 


my 


$oDBO 


= new 


XDrive: 


: DatabaseO; 


my 


$oCookie 


= new 


XDrive: 


:CGI: : Cookie ( ' x_session_inf o 1 , $oCGI) ; 



my $oToken; 
my $sToken; 
my $sUsername; 
my $sPartnerCode; 



my $bSecurity = $oCGI->param ( ' bSecurity 1 ) ; 

my $sPartnerToken = $oCGI->param ( 1 partner_token f ) ; 

my $passed_lang = $oCGI->param ( 1 language 1 ) ; 

##### 

## Attempt to authenticate the user by using one of the following two 
## authentication methods: username/password pair or partner token 
## authentication. 
##### 

if (! defined $sUsername && length ($sPartnerToken) > 20) 
{ 

authPartnerUser ($oCGI, $oErr, $oDB0, \$sUsername, \$oToken 7 
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\$sPartnerCode, $sPartnerToken) ; 
$sToken « $oToken->name ( ) ; 
} 

else 

{ 

authWebSiteUser ($oCGI, $oErr, $0080, \$sUsername, \$oToken) ; 

$sPartnerCode = 'xdrv'; 

} 

##### 

## If an error occurud while trying to create a token then redirect 

## the user to the error page. 

##### 

if ($oErr->Occurud) 
{ 

$oDBO->disconnect ; 
xd_fatal_error ($oCGI, $oErr) ; 
exit; 
} 

K ##### 

Q ## If we have gotten here then we have an authenticated user. 

□ ##### 

yy # # # # # 

## Build and print out cookies 

CI ##### 

; 2 my $sLanguage = getLanguage ($oDBO, $sUsername) ; 

13 ##check if user's language is the same as passed language 

fy if { (length ($passed__lang) > 0) && $sLanguage ne $passed_Iang) 

n& { 

^$ ##update db here to new language 

H setLanguage ($0080, $sUsername, $passed_lang) ; 

##update session to new language 

$sLanguage = $passed_lang; 

} 



##delete the promo cookie; this will not be set here and we 
##don't want an old one hanging out 
##promo cookies should be set in promo. cgi 

$oCookie->deleteElement ( ' promo 1 ) if $oCookie->getElement ( 1 promo 1 ) ; 

$oCockie->set Element 
({ 

'language' => $sLanguage, 
'partner' => $sPartnerCode, 

}) ; 

print "Set-Cookie: " . $oCookie->asString ( ) ; 

print "Set-Cookie: SST=$sToken; domain= . xdrive . com; path=/\n" 
if $sPartnerCode ne 'xdrv'; 

##### 

## write user login to the database 
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##### 

& increment LoginNumber ($oDBO, $sUsername, $sLanguage, $sPartnerCode) ; 



##### 

## Send the user off into thier file explorer 
##### 

if ($ENV{ f HTTP_USER_AGENT 1 } =~ / A xdwin/) 
{ 

print $oCGI->redirect { "?sst= n . $oToken->name ( ) ."&sid=0"); 
} 

else 

{ 

xd_web_open($oCGI, "", "", \%ENV, $bSecurity) ; 
} 

$oDBO->disconnect ; 
return 0; 

:»sw. 

!b ** sub incrementLoginNumber ( ) 
{ 

% 4 my $oDB0 = shift; 

UJ my $sUsername - shift; 

\j my $sLanguage = shift; 

Si my $sPartnerCode = shift; 

1 R 

my $oDiskAccount = XDrive :: DatabaseO: : Table :: DiskAccount- 

^ >new (undef , $oDBO) ; 

y $oDiskAccount->loadWhere ( "USERNAME", $sUsername) ; 

Hsl $oDiskAccount->f inish; 

H my $timesLoggedIn = $oDiskAccount->f etchColumn ( "LOGIN__NUM" ) ; 

M my $user_seq = $oDiskAccount->f etchColumn ( "USER_SEQ' r ) ; 

fH if ($timesLoggedIn) 

{ 

$ t irne s Logged I n ++ ; 
} 

else 

{ 

$timesLoggedIn=l; 
} 

$oDiskAccount->setColumn ( "LOGIN_NUM" , $timesLoggedIn) ; 
$oDiskAccount->setColumn( ,t LAST_LOGIN" r XDToday() ) ; 

my $status = $oDiskAccount->update { ) ; 

if ($status > -1) 
{ 

$oDiskAccount->commit ( ) ; 
$oDiskAccount->f inish ( } ; 

##give user extra 10MB if 10th login 
if {$timesLoggedIn == 10) 
{ 
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my $oUserQuota = XDrive :: DatabaseO: : Table :: UserQuota- 

>new (undef , $oDBO) ; 

$oUserQuota->loadWhere { "USER_SEQ W , $user_seq) / 
my $additional__quota = $oUserQuota- 
>incrementQuota ($user__seq, 10240) ; 

if ($additional_quota > 0) 
{ 

&send_email ($user_seq, $oDBO, 
$additional__quota,$sLanguage, $sPartnerCode) ; 

} 

} 

} 

else 
{ 

# $oDiskAccount->rollback( ) ; 
} 



} 



sub send_email 
{ 

my $user_seq * shift; 

my $oDBO = shift; 
my $additional_quota = shift; 
my $sLanguage = shift; 
my $sPartnerCode = shift; 



##comes in as k, change to megabytes 
my $mbs = $additional_quota/1024; 

my $oUserData - XDrive: : DatabaseO: : Table :: UserData->new {undef, $oDB0) ; 
$oUserData->loadWhere ( "SEQ" , $user_seq) ; 

my $email_address = $oUserData->f etchColumn ( "EMAZL_ADDRESS " ) ; 
my $name__first = $oUserData->f etchColumn ( "NAME^FIRST" ) ; 
my $name_last - $oUserData->f etchColumn ( "NAMEJLAST" ) ; 

my $oTemplate = new XDrive :: Template 

({ 

'language 1 -> $sLanguage, 

, partner_code t => $sPartnerCode, 
}); 



$oTemplate->load ( 1 received__10MB_101ogins . thtml ' ) ; 
$oTemplate->tags ( { 

T mbs 1 ==> $mbs, 
}); 

$oTemplate->clear { } ; 

my $message = $oTemplate->get ; 

my %toXdrive = 
( 

To => "$name_first $name_last <$email__=ddress>", 

Bcc => 1 1 , 

From => "support\@xdrive.com", 

Message ==> $message, 

Subject => "Congratulations!" 
) ; 
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sendmail (%toXdrive) ; 

} 

sub authPartnerUser 
{ 

my $oCGI = shift; 

my $oErr = shift; 

my $oDBO ~ shift; 

my $rsUsername = shift; 

my $roToken = shift; 

my $rsPartnerCode = shift; 

my $sPartnerToken = shift; 

my $oCookie = new XDrive : : CGI : : Cookie ( 1 x__session_info ' , $oCGI); 

my $oPartnerToken = new Token 
({ 

'err' => $oErr, 
H ? dbh' => $oDBO, 

}); 

$oPartnerToken->load($sPartnerToken) ; 



I s 3 return if $oErr->Occurud; 

,1 $$roToken - new Token 

,5 ({ 

tfl f oW => $oDBO, 

* 'err' => $oErr, 

Q 'user_sequence 1 => $oPartnerToken->data ( ! user__seq' ) , 

$$roToken->create { ) ; 

&h return if $oErr->Occurud; 

W? 
r? j 

### Edited by Justin so that the partner_code is looked for 
### in the cookie instead of the token table. 
$$rsPartnerCode = $oPartnerToken->data ( 'partner_code ' ) ; 
##$$rsPartnerCode = $oCookie->getElement (' partner 1 } ; 
$$rsUsername = $oPartnerToken->data { 1 user 1 ) ; 

$$roToken->data ( 1 ip' , $ENV{REMOTE_ADDR} ) ; 
$$roToken->data{ 'browser ■ , $ENV{ HTTP_USER_AGENT } } ; 
$$roToken->data ( 'user 1 , $$rsUsername) ; 

$$roToken->data ( 1 user_seq f , $oPartnerToken->data ( 1 user_seq' ) ) ; 
$$roToken->data ( 1 partner_code ' , $$rsPartnerCode } ; 
$$roToken->data ( ' disk_account__seq T , $oPartnerToken- 
>data( r disk_account_seq' ) ) ; 
$$roToken->save; 

$oPartnerToken->delete ( ) ; 

} 

sub authWebSiteUser 
{ 

my $oCGI - shift; 
my $oErr = shift; 
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my $oDBO = shift; 

my $rsUsername - shift; 

my $roToken = shift; 

my $sPassword = $oCGI->param ( 'pass ' ) ; 
$$rsUsername = $oCGI->param ( 1 user 1 ) ; 

$oCGI->param( 'user 1 ) ; 

if (xd_auth_password($$rsUsername, $sPassword, $oDBO) ) 
{ 

## Login the user info Xrdrive and get the session token 
$$roToken = xd_login ($oCGI, $$rsUsername, $oErr, $oDBO) ; 
} 



else 



{ 

$oErr->Add£rrorBy£rrorCode ( ' 501 ' ) 
} 



. sub getLanguage 

h 1 my $oDBO = shift; 

% ' 

my $sUsername = shift; 

N 

iff my $ language; 

p ## get the user's language out of the database 

nj my $oDiskAccount = XDrive :: DatabaseO: : Table :: DiskAccount- 

y[ >new(undef , $oDBO) ; 

$oDiskAccount->loadWhere ( "USERNAME" , $sUsername) ; 
' m $oDiskAccount->f inish; 

^ my $userSeq = $oDiskAccount->f etchColumn { "USER SEQ") ; 

m 

my $oQserSettings = XDrive :: DatabaseO: : Table :: UserSettings- 
>new (undef , $oDBO) ; 

$oUserSettings->loadWhere ("USER_SEQ", $userSeq) ; 
$oUserSettings->f inish; 

my $language = $oUserSettings->f etchColumn ( "LANGUAGE" ) ; 

if ($language eq ' ' ) 

{ 

$language = ' english 1 ; 

} 

else 

{ 

## Get language from database given code 
my $oLanguage = XDrive :: DatabaseO: : Table :: Language- 
>new(undef , $oDBO) ; 

$oLanguage->loadWhere ( "SEQ", $language) ; 
$oLanguage->f inish; 

$language = $oLanguage->f etchColumn ( "CODE" ) ; 
} 

return $language; 
} 
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sub setLanguage 

{ 

##set the LANGUAGE column of the User_Settings table to passed language 

my SoDBO = shift; 
my $sUsername = shift; 
my Slanguage = shift; 

my ($rv, $errorCode ) ; 

## get the user's language out of the database 
my $oDiskAccount = XDrive :: DatabaseO: : Table :: DiskAccount- 
>new(undef , $oDBO) ; 

##grab right table 
$oDiskAccount->loadWhere { "USERNAME" , $sUsername) ; 
$oDiskAccount->f inish; 

my $userSeq = $oDiskAccount->f etchColumn ( "USER_SEQ" ) ; 

my $oUserSettings = XDrive :: DatabaseO: : Table :: UserSettings- 
>new (undef , $oDBO) ; 

$oUserSettings->loadWhere ( "USER__SEG", $userSeq) ; 
Cl $oUserSettings->f inish; 

##grab the seq number of the LANGUAGE being passed 

my $oLanguage = XDrive :: DatabaseO: : Table :: Language->new (undef , $oDBO) ; 
s 4 $oLanguage->loadWhere ("CODE", Slanguage) ; 

UI $oLanguage->f inish ( ) ; 

my $seq_lang = $oLanguage->f etchColumn ( "SEQ" ) ; 

3 

## 

##set language here 
M $rv = 0; 

r!J $oUserSettings->setColumn{ 1 LANGUAGE ' , $seq_lang) ; 

$rv = $oUserSettings->update ( ) ; 

/ ; 

if ($rv =- 0} 

{ 

$oUserSettings->rollback ( ) ; 
$errorCode =0; 

} 

else 
{ 

$oUserSettings->commit ( ) ; 
$errorCode = 1; 

} 

return $errorCode; 
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###download_clientcgi 



# ! /usr/bin/perl 

## Written by Karen Eppinger 

## Script that shows the 'download the client 1 page 

## it can no longer be static html because we need to 

## do some checking on whether the user is from a partner or not 

## if so, make sure to let them know what their X: drive login name 

## is if it differs from their partner login 



use strict; 

use lib ($ENV{PERL_XDRIVE_LIB}) ; 



use CGI; 

use XDrive: : Library; 

use XDrive: : Template; 

use XDrive: : Error; 

use XDrive :: DatabaseO; 

use XDrive :: Client :: Security; 

use XDrive: : DatabaseO: : Table: : ResellerUserMap; 
use XDrive: :DatabaseO: :Table: .-Reseller; 



"-i &main; 
ex it; 

S.j sub main 

in f 



I r ## Load the session token 

ray $oErr = new XDrive :: Error; 

my $oDBO = new XDrive :: DatabaseO; 

my $oCGI = new CGI; 

M my $oToken = xd_security_check ($oDBO, $oCGI, $oErr) ; 

13 my $oCookie = new XDrive : : CGI : : Cookie ( 1 x__session__inf o ' , $oCGI); 

fli 

if ($oErr->Occurud) 
{ 

xd_fatal_error ($oCGI,$oErr) ; 

$oDBO->disconnect () ; 

exit; 

} 



my $partner_code = $oToken->data { ' partner_code 1 ) ; 

my $language = $oCookie->getElement ( 1 language 1 } II ' english'; 

my $oForm - new XDrive :: Template 
({ 

'partner__code ' => $partner_code, 

'language 1 => Slanguage, 

}); 



$oForm->load { 1 download__client . thtml 1 ) ; 

##if we are coming from a partner, make sure partner login 
##and X: drive login match 
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my $reseller_usemame; 
my $reseller_name; 
my $partner_warning; 
my $username; 

if ($partner_code ne 'xdrv') 
{ 

my $user__seq = $oToken->data ( 1 user_seq f ) ; 
$username = $oToken->data ( * user ' ) ; 

my $oResellerUserMap = XDrive: : DatabaseO: : Table :: ResellerUserMap- 
>new (undef , $oDBO) ; 

my $oReseller = XDrive :: DatabaseO: : Table :: Reseller->new (undef , 

$oDBO); 

$oReseller->loadWhere ( "CODE" , $partner_code) ; 
$reseller_name = $oReseller~>f etchColumn ( "NAME" ) ; 
$oResellerUserMap->loadWhere ("USER_SEQ", $user_seq) ; 
$reseller_username = $oResellerUserMap->fetchColumn ( "ALIAS") ; 

if {$reseller_username ne $username) 
I 

##load the text for the warning message 
my $oWarning = new XDrive :: Template 
({ 

*partner_code ' => $partner_code, 
'language 1 $language, 

}); 

$oWarning->load ( 1 download_client_warning . thtml 1 ) ; 
$oWarning->tags 

({ 

1 reseller_name 1 => $reseller__name, 

1 reseller__username 1 => $reseller_username, 

'username' => $username, 

}); 



$oWarning->clear { ) ; 
$partner__warning = $oWarning->get ( ) ; 



$oForm->tags 

[{ 

1 partner__warning ' => $partner_warning, 
1 reseller_name ' => $reseller_name, 
• reseller_username ' => $reseller_username, 
'username 1 => $username, 

}) ; 

$oForm->clear ( ) / 

print $oCGI~>header () , ' $oForm->get ; 
$oDBO->disconnect { ) ; 
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return 0; 
) 
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###email_change.cgi 

# ! /usr/bin/perl 

use lib ($ENV{PERL_XDRIVE_LIB) ) ; 

use XDrive :: Client :: Security; 
use XDrive :: DatabaseO; 

use XDrive: : DatabaseO: : Table: :UserData; 
use XDrive: : DatabaseO: : Table: : DiskAccount ; 



use CGI:: Carp qw ( f atalsToBrowser } / 
use CGI; 

use XDrive :: Library; 
use XDrive :: Template; 
use XDrive :: Security; 
use XDrive : :CGI; 
use XDrive :: Error; 

Nl 

M use strict; 

%! &main; 
U! exit; 

%j sub main 

n { 

my $oCGI = CGI->new(); 
* my $oErr = new XDrive :: Error ; 

y my $oDBO « new XDrive :: DatabaseO; 

i y 

M #### 

hi ## Check the token is valid and is an error occured then 

g ## redirect with a fatal error 

^ i # # # # 

( a 

my $oToken = xd_security_check ($oDBO, $oCGI, $oErr) ; 



if ($oErr->Cccurud) 
{ 

xd_f atal_error ($oCGI, $oErr) ; 
exit; 

} 



my $sUserName = $oToken->data { 1 user 1 ) ; 
my $s01dEmaii « $oCGI->param ( ' oldEmail 1 ) ; 
my $sNewEmail = $oCGI->param ( 1 newEmail 1 ) ; 

if ({$s01dEmail eq 1 1 ) || ($sNewEmail eq ' f )) 
{ 

my $sMessage = $oErr->ReturnMessageGivenCode [ 1350 ) ; 
XDErrorToBrowser ( "", $sMessage, undef , $oToken) ; 

} 



##first, get user_seq from the disk_account table 
##since we only have the user name, need to do this first 
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my $oDiskAccount = XDrive :: DatabaseO :: Table :: DiskAccount- 
>new ; undef , undef ) ; 

$oDiskAccount->loadWhere { f USERNAME ' , $ s User Name } ; 

my $nUserID = $oDiskAccount->f etchColumn ( ' USSR_SEQ T } ; 

##now that we have chat, get the email address from 
##user table using zhe user_seq number to pull the seq number 
my $oUserInfc = XDrive :: DatabaseO: : Table :: UserDara->new (undef , 
$oDiskAccount->fetchDBO ( ) ) ; 

$oUserInf o->loadWhere ( ' EMAIL_AD DRESS 1 , $sNewEmaii) ; 

##if a sequence number is returned, there is already a record 
##in the database with that email address, don't allow to change 

my $nSeqNumber = $oUser!nf o->f etchColumn {' SEQ 1 ) ; 

if ($nSeqNumber ) 
{ 

$oUserInfo->disconnect () ; 
^ my $sMessage = $oErr->ReturnMessageGivenCode ( 1351) ; 

XDErrorToBrowser ("", $sMessage, undef , $oToken) ; 

} 

H else 

\| { 

Uf $oUserInfo->loadWhere( f SEQ' , $nUserlD) ; 

SJ my $sEmailinDB = $oUserInf o->f etchColumn (' SMAIL_ADDRESS ') ; 

\j 

if! • if ($s01dEmaii eq $sEmaiiinDB) 

T ( 

fa* ##set email in class 

J*f $oUserInfo->setColumn( ' EMAIL_AD DRESS 1 , $sNewEmail) ; 

14 ##now update database 

N 1 $oUserInf o->update ( ) ; 

Q my $oTemplate = new XDrive :: Template 

fy ( { 'partner__code ' => $oToken- 

>data ( 1 partner__code ' ) } ) ; 

$oTemplate->load ( 1 pr_changeemail_ok . chtmi 1 ) ; 

print "Content-type: text/html\n\n"; 

print $oTemplate->get ( ) ; 

} 

else 

{ 

$oUser!nf o->disconnect { ) ; 

my $sMessage - $oErr->ReturnMessageGivenCode ( 1352 1 ; 
XDErrorToBrowser ("", $sMessage, undef , $oToken) ; 

} 

} 

$oUserInf o->commit ( ) ; 
$oUserInf o->f inish ( ) ; 
$oUser!nf o->disconnect () ; 
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###error.cgi 



# ! /usr/bin/peri 

use lib ($ENV{PERL_XDRIVE_LI8}> ; 
use XDrive: : Error; 
use XDrive: : Template; 
use CGI; 



&main; 
exit ; 



sub main 
{ 

my $oCGI = new CGI; 

my ($sErrorCode) - $ENV { QUERY__STRING } — /error= ( [ +) / ; 
my $oError = new XDrive: .-Error; 

my $sError = $oError->ReturnMessageGivenCode ( $sErrorCode) ; 
j*$ rny $oTemplate = new XDrive :: Template ( { T partner_ccde 1 => 'xdrv'} ) 

Q $oTemplate->load ( ' generic__error . thtml 1 ) ; 

v®J $oTemplate->tags 

({ 

'message 1 => $sError 
} ) ; 



^' $oTemplate->clear ( ) ; 

N print $oCGI->header () , $oTemplate->get ; 

U] } 

■* 



m 
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###explorer.cgi 



# ! /usr/bin/perl 

## Written by Martin Hald <mhald@uci . edu> on Tue May 25 15:23:31 PDT 1999. 
## Program to build the file explorer wftich is itself a popup window. 

use strict; 

use lib {$ENV{PERL_XDRIVE_LI3} ) ; 
#use vars qw(@ISA); 

#@ISA = qw(XDrive: :CGI) ; 

use CGI qw(param header); 

use CGI:: Carp qw { f atalsToBrowser) ; 

use Date: : Format; 

use HTTP: : Icons; 

# use XDrive::CGI qw(:MAIN); 

use XDrive :: Client :: Security; 

use XDrive: .-Client :: Quota; 

use XDrive: : Library; 

use XDrive: : Template; 

use XDrive: :DatabaseO; 

use XDrive: :DatabaseO: :Table: : UserSettings ; 
use XDrive: :DatabaseO: : Table: : DiskAccounr ; 
use XDrive: rDatabaseO: : Table: :UserData; 
use XDrive: : Error ; 



&main; 



exit (0) ; 



sub main 



#### 

## Global variables 
#### 

my $oToken; 
my $sUsername; 
my $sPath; 
my $sSST; 
my $bEditExt; 
my $bFirstTime; 
my $bExtraHelp; 
my $bMarketing; 



## 
## 
## 
## 
## 
## 
## 
## 



XDrive Token 
username 
path for index 
Token name 

Allow extensions to be edited? 
First time the've logged in... 
Print extra help 

does user want ro receive offers from other 



companies 



my $bNewsletter ; 
my $ s Partner; 
my $g_sFrameSize; 
my $g_sFrameBanner; 



## 
## 
## 
## 



does user want to receive our newsletter 
partners name 

breakdown of the centerview frame 
banner view frame information 



my $oCookie 



my $oDBO 
my $oCGI 
my $oErr 



XDrive : : DatabaseO->new (undef , undef ) ; 
new CGI; 

new XDrive: : Error; 

new XDrive : : CGI : : Cookie ( 1 x_session_inf o 1 , 



$oCGI) ; 
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#### 

## If the user has bookmarked the X: drive service znen redirect 

## them back to the homepage 

#### 

if (! length ($oCGI->param ( 'sst' ) ) && ! length ( $oCG»cookie !' SST 1 )) ) 
{ 

print $oCGI->redirect ( ' /cgi-bin/web_unauthorized. cgi?error=804 1 ) ; 
$oDBO~>disconnect () ; 
return 0; 
} 

#### 

## Check the security and if an error occurs 
#### 

$oToken = xd_security_check ($oDBO, $oCGI, $oErr) ; 



if ($oErr->Occurud) { 

$oDBO->disconnect ( ) ; 
g xd_fatal_error ($oCGI, $oErr) ; 



exit; 

w #### 

? M ## Now we know we have a valid session so pull the partner name 

% 4 ## from a cookie if available or clear the variable 

U] #### 

Hi # $sPartner = $oToken->data ( 1 partner_code 1 ) ; 

q $sPartner = $oCookie->getElement ( 'partner ') ; 

$sPartner = "xdrv" if ($sPartner eq ""); 



## Load the required template HTML files. 

# my $oFrame = new XDrive :: Template 

# ' ({ 

# 1 partner_code ' => $oToken->data ( ' partner_ccce ' ) 

# }); 

### Edited by Justin to check the cookie instead cf 
### the token table for the partner__code . 
my $oFrame = new XDrive :: Template 
({ 

'partner_code f => $oCookie->getElement { 'partner 1 ) 
} ) ; 

## If the request comes from the windows app the give back a simplified 
template 

$oFrame->load ( "acct_explorer__f rame . thtml" ) / 

## Assign globally used variables 
$sPath = $oCGI->param{ ' sFolderCurrent ' ) ; 
$sSST = $oToken->name; 
$sUsername = $oToken->data ( ' user ' ) ; 
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my 
$oDBO) ; 



User settings 

$oDiskAccount = XDrive: :DatabaseO: : Table: : DiskAccount->new (undef , 



my $oUserSettings = XDrive :: DatabaseO :: Table :: UserSettings->new (uncsf, 
SoDBO) ; 

my $oUserData = XDrive :: DatabaseO :: Table :: UserData->new (undef , SoDEC;; 

SoDiskAccount-MoadWhere ( "USERNAME" , $sUsername) ; 
$oUserSettings->loadWhere("USER_SEQ", SoDiskAccour.-- 

>fetchColumn("USER_SEQ") ) ; 

$oUserData->loadWhere("SEQ", SoDiskAccount->f etchColumn ( "USER_SEQ j , ; 

$bEditExt = $oUserSettings->fetchColumn("FILE_EXT_EDITABLE") — 1 ? 
•true 1 : 'false 1 ; 

$bExtraHelp = {$oUserSettings->f etchColumn ( "EXTRAJiELP" ) == D ? '-rue : 
i false ' ' 

$bMarketing = $oUserSettings->f etchColumn ( "OPT_MARKETING" ) == 1 ? 'true' 
. • false 1 * 

$bNewsletter = $oUserSett ings->f etchColumn { "OPT_NEWSLETTER") 1 ? 'true' 
: 'false'; 

my $firstName - SoUserData->f etchColumn ( "NAME_FIRST" ) ; 
vj my $lastName = $oUser Da t a- >f etchColumn ( "NAME_LAST" ) ; 



Hi } 
else 



my Sfirst = $oCGI->param ( 1 first ' ) ; 

$bFirstTime = Sfirst eq 'yes' ? 'true' : 1 false'; 
## Frame settings 

if ($sPartner eq 'cc 1 II SsPartner eq 'qupa') 
{ 

$g_sFrameSize = '100%'; 
$g_sFrameBanner = 1 1 ; 



{ 

Sg_sFrameSize = '103,*'; 

$g sFrameBanner - 1 < FRAME NAME= "banner" 1 . 

1 SRC="/cgi-bin/ads.cgi" SCROLLING=NO 3ORDER=0 
1 FRAMEBORDER=0 MARGINWIDTH-0 MARGINHEIGHT=0 
' TOPMARGIN-0 LEFTMARG1N=0> ' ; 

} 

##get the language information from the cookie 
##if no cookie or not set, set to english 
my %session_info = $oCGI->cookie ( 1 x_session_inf o ' ) ; 
my $ language; 

if ($session_info{ 'language 1 } ne 1 ' ) { 

Slanguage = $session_inf o{ 1 language '} ; 

} 

else { 

Slanguage = 'english 1 ; 

} 

my SclientDownload = $oCGI->param (' client ') ; 
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my $sCenterPage = 1 centerview. thtml 9 ; 
if ($clientDownload eq 'getclient') { 

$sCenterPage = 1 download_client . thtml ' ; 

} 



## Set the token name and session ID in the navigation form so that popup 
## windows have access to them and the do not need to be passed around. 
$oFrame->tags 
({ 

'sSST' => $sSST, 

1 bSettingEditExtensions ' $bEditExt, 
1 sPartner 1 => $sPartner, 
'bExtraHelp' => $bExtraHelp, 
'bFirstTime' => $bFirstTime, 
'bMarketing 1 => $bMarketing, 
1 bNewsletter T -> $bNewsletter, 
1 centerPage 1 => $sCenterPage, 
'userName' => $sCJsername, 
f firstName f -> $firstName, 
* m ' lastName' => SlastName, 

' f rameBanner f => $g_sFrameBanner , 
i *frameSize r => $g_sFrameSize, 

i 'language* => $language 



m } 

N 



## Print out the HTML and exit 
$oFrame->clear { ) ; 

print $oCGI->header { ) , $oFrame->get ; 
$oDiskAccount->f inish ( ) ; 



n ? • » ' ' 

$oUserSettings->f inish ( ) ; 

M $oUserData->f inish ( ) ; 

N 

$oDBO->disconnect ( ) ; 

ra > 
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###exp!orer_user_data.cgi 



# ! /usr/bin/perl 

## Written by Martin Hald <mhald(3uci . edu> on Tus May 21 15:23:31 PDT 1999. 
## Program to build the file explorer which is itself a popup winacw. 



use strict; 

use lib ($ENV{ PERL XDRIVE__LIB } ) ; 



use vars qw(@ISA); 



@ ISA - qw (XDrive: :CGI) ; 

use Data: -.Dumper; 
use CGI; 

use CGI::Carp qw (fatalsToBrowser) ; 
y% use Token; 

use XDrive: :CSI qw(:MAIN); 
JSJ use XDrive: :Ciient : :Actions; 
: r*\ use XDrive : : Client :: Security; 
^ use XDrive :: DatabaseO; 

use XDrive :: Library; 
H use XDrive: : Template; 
use XDrive: : Error; 



&main; 
exit; 

sub main 

f* { 

^ my $oCGI - new CGI; 

my $oErr = new XDrive :: Error; 



my $oDBO = new XDrive :: DatabaseO; 

my $oToken = xd_security_check ($oDBO, $oCGI, $oErr 

if ($oErr->Occurud) 
{ 

xd_fatai__error ($oCGI, $oErr) ; 
exit; 

} 



my $sFoider; 

my $oAction = new XDrive: :Client :: Actions ($oToker., SoCGI) ; 

$sFolder = $oCGI->param ( ' f older_currenr 1 ) ; 

## Load the required template HTML files, 
my $oFrame = new XDrive :: Template 
({ 

'partner_code ' => $oToken->data ( ' partner_code ' ) 
}); 



if ($ENV{ 1 HTTP__USER__AGENT 1 } =- / A xdwin/) 
{ 
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$oFrame->load("acct user_data_xd_w:n. thtml") ; 



else 



{ 

$oFrame->load ( "acct_user_data . thtml " ) ; 
} 

## Set the token name and sesion ID in the navigation fcrm so that popup 
## windows have access to them and the do ncz need to be passed around. 
$oFrame->tags 
({ 

! sst' => $oAction->SST() , 

' sid f => $oAction->SID() , 

* usage_total ' => $oAction->QuotaLimit ( ) , 

! usage_used f => $oAction->QuotaUsed ( ) , 

T stuff' => $oAction->DiskAccountXML ($s? older) 

}); 

$oFrame->clear ; 
$oAction->DisconnectDB ( } ; 




## Print out the HTML and exit 
print "Cache-Control : no-cache\n" / 
print "pragma: no-cache \n"; 
print "Content-type: text/html\n\n"; 
print $oFrame->get ; 
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###file_load.cgi 

# ! /usr/bin/perl 

# Program written by Martin Hald <mhald@uci . edu> to fetch files from a 

# storage area or database and return them via a HTTP socket to the user. 

use strict; 

use CGI qw (header param); 

use CGI:: Carp ' fatalsToSrowser * ; 

## The HTTP: :MimeTypes module was a quick module that I wrote that reads the 
## standard apache mime. types file, parses it and given any known extension 
## translates it to the correct mimetype. 

use lib ($ENV{PERL_XDRIVE_LIB}); 

use HTTP: :MimeTypes; 

use XDrive: : Client : .-Actions; 

use XDrive: : Client: :Security; 

use XDrive: :DatabaseO: .-Table: : DiskltemShare; 

use XDrive: : DatabaseO; 

use XDrive :: Library; 

use XDrive :: Error; 

## We have two security methods when downloading files: 

## 1) tokens 

## 2) claim checks 

## to deal with this we simply security method we are using and process the 
## request. 

&main; 
exit; 

sub main 
{ 

my $oCGI = new CGI; 

my $oErr = new XDrive :: Error ; 

my $oDBO = new XDrive :: DatabaseO; 

my $sFileCurrent; ## Current File 
my $oAction; ## Action object 

#### 

## Process the request as a share a file pickup if the claim_check 

## param is available 

#### 

if [param { r claim_check' ) ) 
{ 

my $oShare; 

$oShare = XDrive :: DatabaseO :: Table :: DiskItemShare->new {) ; 
$oShare->loadWhere ( "random_key" , param ( ' claim_check ' ) ) ; 

$oAction = new XDrive :: Client :: Actions ($oShare, $oCGI ) ; 
$sFileCurrent * join 
( 
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'/', 

$oShare->fetchColumn ( "ITEM_PATH" ) , 
$oShare->f etchColumn ( " ITEM_NAME" ) 

) ; 

} 

#### 

## Otherwise it is an request from the browser or PC client 
## side program so let the actions object handle the request 
#### 
else 

{ 

#### 

## Attempt to authenticate the user and if that fails 
'## then redirect to the error CGI 
#### 

my $oToken = xd_security_check ($oDBO, $oCGI, $oErr) ; 



if ($oErr->Occurud) 
{ 

xd_fatal_error ($oCGI, $oErr) ; 

exit ; 

} 

#### 

## Now we know that we have a valid token so go ahead 
## and let the actions object handle the request 
#### 

$oAction = new XDrive :: Client :: Actions 
( 

$oToken, 
$oCGI 



$sFileCurrent = $oAction->FileCurrent ( ) ; 
} 

## Check that the current file is OK. If this check fails then 
## the code does an XDErrorToBrowser and exists 
$oAction->FileCheck ($sFileCurrent ) ; 



print _header ($sFileCurrenc) ; 

## Commented out by Justin because it was 

## including a 1 at the end of the file by printing it out. 
#print $oAction->FileLoad($sFileCurrent) ; 
$oAction->FileLoad($sFileCurrent) ; 



$oDBO->disconnect ; 
} 



sub _header 
{ 

my $sFile = shift; 

my $mlt = new HTTP : :MimeTypes; 
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## Grab the extension and lookup the correct mimetype using the mlt or 

mime 

## lookup table object. 

my $sHeader; ## MIME header 

my $sExtension; ## file extension 

## Clean up the filename by getting rid of any path that comes before 
## the filename. 
$sFile s=.*/==g; 

if (param{ 'mime' ) eq 'download 1 ) 

{ 

if ( $ENV { HTTP_USER_AGENT } =- /MS IE/) 

{ " 

SsHeader .= "Content-Disposition: attachment; 
f ilename=$sFile\n" ; 

SsHeader .= "Content-type: application/download; 
name=\"$sFile\"\n\n"; 

} 

else 

{ 

$sHeader .= "Content-type: application/octet-stream\n\n"; 
} 

} 

else 

{ 

my $dotPos=-l; 
my $returnPos=-l; 

while (($dotPos - index {SsFile, $dotPos)) > -i; 

{ 

$returnPos = $dotPos; 
$dotPos++; 

} 

##if no extension set extension to nothing 

if ($returnPos < 0) 

{ 

$sExtension=' 1 ; 

} 

else 
{ 

$sExtension = substr ( $sFile, $returnPos + l ) ; 

} 

$mlt->extension ($sExtension) ; 
$sHeader = $mlt->header ■ } ; 
} 



return $sHeader; 



} 



sub IEHack () 
{ 

my $sFileCurrent = param ( 1 sFileCurrent 1 ) ; 

my ($sFileOnly) = $sFileCurrent /\/ ( [ A \/] +)$/; 

my $s Javascript ; 
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if (param ( 1 source ' ) eq 'www.fileExplorer.view' || param( 'source' ; eq 
1 www . f ileExplorer . download 1 ) 
{ 

$sJavascript = «EOM; 
<SCRIPT LANGUAGE- JAVASCRIPT> 
i f (parent . parent . parent . name ) 
{ 

parent .parent .parent .parent. XDReset () ; 

parent . parent .parent . parent .XDRef reshExplorer ( ) ; 

} 

</SCRIPT> 
EOM 



print «EOM; 
Content-type : text/html 

<HTML> 
<BODY> 



i;3 $sJavascript 

<OBJECT classid=CLSID:4CCF6192-4552~llD3-80A8-0050048D4BFE 
codebase="http: //209 . 101.43. 96/dll/xdf iles . cab" 
id-XDFiles> 
N </0BJECT> 

Ul <SCRIPT LANGUAGE="VBSCRIPT"> 

S 



n\ 1 Don't raise errors 
On Error Resume Next 

\2 Dim oXDFiles ' The ActiveX control 

Q 

ill f Late bind to the control 

Set oXDFiles = CreateObject ( "XDFiles .XDFiles . 1") 

' If we got an error, they didn't install the ActiveX control 
If Err. Number <> 0 Then 

MsgBox "You must install the X: drive ActiveX contrcl in order to download 

"the file. Please click Download again and wr.en prompted tc install 

the " & 

"ActiveX control, click Yes." 

End If 

1 Set some test values for the properties 
oXDFiles. Prompt = True 

oXDFiles. Destination = M c : W$sFileOnly" 
oXDFiles. File = "$sFileCurrent " 

1 Call each method 
oXDFiles. Get 

■ Print out each property 
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f document. write {"oXDFiles. Destination = " & oXDFiles . Destination & "<br>") 

1 document. write ("oXDFiles. Prompt = " & CBool (oXDFiles . Prompt) & "<br>") 

1 document. write ("oXDFiles. File = " & oXDFiles . File & "<br>") 

1 document . write ( "oXDFiles . ServerSideToken = " & oXDFiles . ServerSideToken & 

"<br>") 

■ document. write ( "oXDFiles. Sessionld = " & oXDFiles . Sessionld & "<br>") 

1 Free the ActiveX control 
Set oXDFiles = Nothing 

</SCRIPT> 

</BODY> 
</HTML> 
EOM 

} 



i . 5 



TO:? 

ill 



Mi 
O 
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###file_save.cgi 



# ! /usr/bin/perl 
###### 

### file__save . cgi 
###### 

use strict; 

use lib ($ENV{PERL_XDRIVE_LIB}) ; 
use CGI: : Carp qw ( f aralsTcBrowser ) ; 
use Token; 

use XDrive: :CGI2; ## file upload functions 

use XDrive: :CGI qw(:MAIN); ## xd_web_buttonindex function 

use XDrive : rClient : .-Actions; 

use XDrive: -.Client: : Security; 

use XDrive :: Error ; 

use XDrive :: Library; ## xd_f atal_error function 

JjJ use XDrive: :DatabaseO; 
W use XDrive :: DatabaseO: : Search; 

use XDrive :: Template; 
Uj use XDrive: : DatabaseO :: Transaction; 
M 

\| &main; 

If! 



*W 5 



exit; 

sub main { 

my $oErr = new XDrive :: Error ; 

my $oDBO = new XDrive: :DatabaseO; 

my $oSearch = new XDrive :: DatabaseO: : Search; 

my $oTransaction = XDrive: : DatabaseO: :Transaction->new ($oDBO) ; 

##« 

## Parse the SST cookie manually and retrieve the user sequence 

## by passing it to the getUserSeq sub. 

#### 

my (Scookie) = $ENV { 1 HTTP_COOKIE ' } =~ / \bSST= ( \w- ) \b ; 
my $user__seq « &getUserSeq ( $oSearch, $cookie) ; 

my $bytes - $ENV{ ' CONTENT_LENGTH ' } ; ## number of bytes being uploaded. 



my %upload_hash - ( ' USER_SEQ 1 => $user_seq, 

1 BYTES 1 => $bytes) ; 
my $oCGI = new XDrive :: CGI2 ( \%upload_hash, $oTransaction) ; 

#### 

## Attempt to authenticate the user and if the authentication 

## fails then redirect to the error CGI 

#### 

my $oToken - xd_security__check ($oDBO, $oCGI, $oErr) ; 
if ($oErr->Occurud) { 
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xd_fatal_error ($oCGI, $oErr) ; 
exit; 

} 

########################################fr######ff?=?F####################### 
###### 

### Check to see if they've exceeded 
### their quota limit, and error if so. 
###### 

# my $oUserQuota = XDrive :: DatabaseO: : Table :: User 2uota->new (undef, $oDBO) ; 

# $oUserQuota->loadWhere ("USER_SEQ", $user_seq ; 

# my $nQuota - $oUserQuota->f etchColumr. ( "QUOTA " , ; 

# my $nDiskUsed = $oUserQuota->f etchCoiumn { "DI£K_USED fl ) ; 

# if ( (SnQuota * 1024) < ($nDiskUsed + $bytes) { 

# $oUserQuota->f inish { ) ; 

# $oDBO->disconnect ( ) ; 

# ## let user know he or she has exceeded his quota 

# $oErr->AddErrorByErrorCode (1240) ; 

# XDErrorToBrowser ( 1 action_upload error . thtnl 1 , $oErr, 1, $oToken) ; 

# exit(0); 

# } 

################################################==######################## 



#### 

## Authentication succeeded so we have a valid session, let 

## the actions object handle the request 

#### 

my $oAction = new XDrive :: Client :: Actions ($oToker. 7 $oCGI); 

$oAction->SaveUploadedFiles ( ) ; 

#### 

## File has been uploaded at this point, so set 

## the upload inactive in the database. 

#### 

$oTransaction->setUploadInactive ( ) ; 

xd_web_buttonindex ($oCGI) ; 
$oAction->DisconnectDB ( ) / 

$oSearch->disconnect ( ) ; 

return 0; 



} 



###### 

### Subroutine: getUserSeq 

### Parameters: one object, one scalar 

### Returns: one scalar 

### Description: Receives a database search object and an SST token. 

#.## Queries the token table for the user sequence and returns it. 

###### 

sub getUserSeq ($$) { 
my $oSearch = shift; 
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my $sst_code = shift; 

my $st = "SELECT user__seq FROM token WHERE code = * $sst_code ' " ; 
my $data = $oSearch->XDSQLSearch ( $st ) ; 
return $$data[0] [0] ; 
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#! file_upload_statcgi 

# ! /usr/bin/perl 
use strict; 

use lib ($ENV{?ERL_XDRIVE_LIB}) ; 
use CGI; 

use XDrive: :CGI; 

use CGI:: Carp qw { fatalsToBrowser ) ; 

use XDrive :: DatabaseO; 

use XDrive :: DatabaseO :: Search; 

use XDrive :: Error ; 

use XDrive :: Client :: Security; 

use XDrive: : Template; 

use XDrive :: Library; 

use Token; 



&main ( ) ; 

Ml 

^ exit (0) ; 

□ 



sub main { 

my $oCGI = new CGI; 

my $oDBO = new XDrive :: DatabaseO; 

my $oErr = new XDrive :: Error; 



m ###### 



### Security Check 
n ###### 

J|1 my $oToken = xd_security_check ( $oDBO, $oCGI, $oErr) ; 

\-j if ($oErr->Occurud || (! $oToken) ) { 

XDErrorToBrowser ("", "Security Violation: No token", undef, $oToken) ; 

fU my ($tmp_file / @stat_array, $stat_bytes, $meta_ref resh, $percent, 

$width_green, $width_red) ; 

my ($url, $tmp_f ile_string, @tmp_f ile_array, $error_code) ; 

my $tmp_path = XDFileUploadTempDir ; 

my $oTemplate = new XDrive :: Template ( { r partner_code 1 => 'xdrv 1 , 

'file' => 

' file_upload status . thtml 1 } ); 

my $id = $oCGI->param ( ' id 1 ) ; ## unique upload 

id 

my $nof = $oCGI->param ( ' nof 1 ) ; ## number of files 

my $nof_queried = $oCGI->param ( 1 nof_queried 1 ) ; ## nof retrieved 

from db 

my $file_param = $oCGI->param ( 1 tmp_f iie ' } ; ## initial file 

string 

my $total_f ile_string = $oCGI->param ( ' total_f ile_string ' ) ; ## string of all 
files 

my $param_uploaded = $oCGI->param (' uploaded ') ; ## bytes uploaded 
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my $bytes 
bytes 



= $oCGI->param( 1 bytes 1 ) ; 



## total numoer of 



print $oCGI->header () ; 
###### 

### First, if we're passed an upload id and no temp file params (files zo 
stat) , 

### then we either haven't queried the database yet and need to or need to 
### query the database again because the number of files (nof) being uploaded 
### is greater than the number of files that our first database query 
returned. 
###### 

if ($id ScSc (! $f ile_param) ) { 

### If this is the first pass, then percent will be a space and width will 

be 0. 

$percent = $bytes ? int(100 * ( $param_uploaded / $bytes)) : ' '; 
$width_green = ($percent eq 1 finbsp; 1 ) ? 0 : $percent; 
$percent .= f % ! unless $percent eq '*nbsp;'; 

my $seconds; 

$width red = &width red ($width green) ; 



$oTemplate->tags ( { ' width green => $width_green, 

'widthjred' => $width_red, 
N 'percent 1 => Spercent}); 

111 

« my $oSearch = new XDrive :: DatabaseO: : Search ($oDB0) ; 

f|j my ($cnt, $data) = $oSearch->uploadStatusSearch ($id) ; 

### If no rows were returned from the database, then redirect 
### and re-query the database. 

J* if <$cnt == 0) { 

i?s * $oSearch->disconnect ( ) ; 

$seconds = 0; 

$url = "/cgi-bin/f ile_upload_star . cgi?" . 

"id=$id&nof=$nof &bytes=$byres&uploaded=$param_uploaded"; 

$meta_ref resh = StbuildMetaRe fresh ;$seconds, $url) ; 

fcconnectingToServer ($meta__ref resh, $oTemplate) ; 

exit (0) ; 

} 

else { 

my $i = 0; 

$bytes - $$data[$i] [0] ; 

$error_code = $$data [$i] [2] ; 

foreach (@$data) { 

$tmp_file - $$data[$i] [1] ; 



d:\my documents\x-dnve\all cgi files-toc.aj.doc 



41 of 148 



push @tmp_f ile_array, $tmp_file; 
$i++; 

} 

$tmp__file_string = join f ~ f , @tmp_jf ile__array; 

if (Sent $nof) { 

$oSearch->disconnect ( ) ; 

&statFilesTotal($bytes, $tmp_f ile_string, $oTemplate) ; 
exit (0) ; 

} 

$seconds = 0; 

$url = "/cgi-bin/file_upload_stat .cgi?" . 

"id=$id&nof-$nof &uploaded=$param_uploaded&" . 
"nof_queried=$cnt&bytes=$bytes&tmp_fiie=$tmp_file_string n ; 

$meta_refresh = &buildMetaRef resh ($seconds, $url) ; 

my $bytes__uploaded = ( $param_uploaded > 0) ? $param_uploaded : 

Sredirect ($meta_ref resh, $bytes_uploaded, $bytes, $oTemplate) ; 

$oSearch->disconnect ( ) ; 

exit (0) ; 

} 

} 

elsif ($f ile_param) { 
$oDBO->disconnect ( ) ; 

my @file_array = split $file_param; 
my $ary_cnt = @f ile_array; 

my ($uploaded_bytes, $seconds) ; 

if (scalar @file_array > 0) { 
foreach (@f ile_array) { 

@stat_array = stat ( "$tmp_path/$_" ) ; 
$stat_bytes = $stat_array [7 ] ; 

$uploaded_bytes += $stat_bytes; 
push @tmp_file_array, 

if ( ($uploaded_bytes == $param_uploaded) && ($nof > $nof_queried) ) { 
$seconds = 0; 

$url = Vcgi-bin/file_upIoad_stat .cgi?" . 

"id=$id&nof=$nof &bytes=$bytes&uploaded=$param_uploaded"; 

$meta refresh = &buildMetaRefresh ($seconds, $url) ; 
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$percent - ($bytes =-0) ? 0 : int(100 * ( $param_uploaded / 

$bytes) ) ; 

$width_green = $percent; 
$percent .= '% f ; 

&redirect ( $meta_ref resh, $up!oaded_bytes , 

$bytes, $oTemplate, $percent, $widtr._green) ; 

exit(O); 

} 

else { 

$tmp_file_string = join @tmp_f ile_array; 

} 

} 

$percent = ($bytes == 0) ? 0 : int(100 * ($uploaded_bytes / $bytes)); 
$width_green = $percent; 
$percent .= ; 

$percent = '  ' if $width_green == 0; 
$seconds = 2; 

$url - "/cgi-bin/file_upload_stat .cgi?" . 

w id=$id&bytes=$bytes&nof=$nof &nof_queried=$nof_queried&" . 
n uploaded=$uploaded_bytes&tmp_file=$tmp_fiie_string"; 

$meta_refresh = &buildMetaRef resh ($seconds, $url) ; 

&redirect ($meta_re fresh, $upioaded_bytes, $bytes, $oTemplate, $percent, 
$width_green) ; 

exit (0) ; 

} 

elsif ($total_f ile_string) { 
$oDBO->disconnect ( ) ; 

&statFilesTotal ($bytes, $total_f ile_string / $oTemplate) ; 

} 

else { 

$oDBO->disconnect ( ) ; 

&closeWindow($oTemplate) ; 
exit (0) ; 

} 

} 

sub statFilesTotal ($$$) { 

my ($bytes, $tmp_f ile_string, $oTemplate) = 6_; 

my $tmp_path = XDFileUploadTempDir ; 

my @file_array = split $tmp_f ile_string; 

my {@tmp_file_array, $uploaded_bytes, @stat_array, $stat_bytes) ; 
my $file_cnt - 0; 
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foreach (@f ile_array) { 

if (-e "$tmp_j>ath/$_") { 

@stat_array = stat ( "$tmp_path/$_" ) ; 
$stat_bytes = $stat_array [7 ] ; 

$uploaded_bytes += $srat_bytes; 

push @tmp_f ile_array, 5_; 

$file_cnt++; 

} 

} 

if {$file_cnt == 0) { 

StcloseWindow ($oTemplate) ; 

exit (0) ; 

} 

else { 

C3 " my $percent = int(100 * i$uploaded_bytes / Sbytes)); 

\j my $width_green = $percent; 

Q $percent .= T % T ; 

,^ $percent = '  ' if $width_green == 0; 

^ my $ seconds = 2; 

fU my $url = "/cgi-bin/file_upload_stat.cgi?" . 

U " »bytes=$bytes\&total_f ile_string=$rmp_f ile_strmg" , 



my $meta_refresh = &builoMetaRef resh ($seconds f Sari); 

&redirect($meta_refresh, $uploaded_bytes , Sbytes, $oTemplate, $percent, 
$width_green) ; 

exit (0) ; 

} 

} 

sub redirect ($$$$;$$) { 

my ($meta_refresh, $bytes_uploaded, $bytes, $oTempiate, ^percent, 

$width_green) = @_; 

if ($bytes > 1024) { 

$bytes = sprint f "%.f", ($bytes / 1024); 
$bytes .= f k'; 

} 

if ($bytes_uploaded > 1024) { 

$bytes_uploaded = sprincf "%.f", ($bytes_uploaded / i024); 
$bytes_uploaded .= 'k T ; 

} 

my $width_red = &width_red ($width_green) ; 
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$oTemplate->tags { { 'metajref resh ? => $meta__ref resh, 

f bytes_uploaded' => $bytes_uploaded, 
'bytes_total f => $bytes, 
f percent' => Spercent, 

1 width_green' => $width_green, 
'width_red f ^> $width__red} ); 

SoTemplate->cIear () ; 
print $oTemplate->get ; 

} 

sub closeWindow ($) { 

my $oTemplate = $_[0]; 

$oTemplate->load ( T f ile_upload_stat window_close . thtml 1 ) ; 

print $oTemplate->get; 

} 

sub connectingToServer ($$) { 
□ my ($meta__refresh, $oTemplate) = @_; 

y= $oTemplate->lcad ( ' f iie_upload connecting . thtml 1 ) ; 

?1 $oTemplate->tags ( Cmeta_ref resh ! => $meta__ref resh } ); 

SI 

H Z print $oTemplate->get; 

U i j 

0 sub buiidMetaRefresh ($$) { 
fU my ($seconds, Surl) = @_; 

M 

M my $meta_refresh = "<meta http-equiv=ref resh content=\ "$seconds ; 

m url=$url\">"; 

m 3 

' ¥ return $meta__ref resh; 

} 

sub widthjred { 

my $width_green = shift; 

my $width_red = ((100 - $width_green) > 0)? 100 - $width_green : 0; 
return $width__red; 

} 
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###folder_create.cgi 



# ! /usr/bin/perl 

# Written by Martin Hald <mhald(?uci . edu> on Sat, Jan 30, 1999. 

use strict; 

use vars qw(@ISA); 

use lib ($ENV{?ERL_XDRIVE_LIB}) ; 

fuse lib qw(/export/home/xdrive/lib) ; 

$ENV{'PATH f } - '/bin'; 

delete @ENV{qw(IFS CDPATH ENV BASH_ENV) } ; # Make %ENV safer 
§ISA = qw(XDrive: :CGI) ; 

use CGI:: Carp ' f atalsToBrowser ' ; 
use Date: : Format; 
use Token; 

use XDrive::CGI qw{:MAIN); 
M use XDrive: : Client :: Security; 
C| use XDrive: : Client: : Actions; 

W 

\f use CGI; 

i,] use XDrive: :DatabaseO; 
use XDrive: : Error; 

% - 

. 2 &main; 

w« exit; 

M sub mam 

ru { 

my $oCGI 
^ my $oErr 

fy #### 

## Attempt to authenticate the user 

#### 

my $oToken = xd_security_check ($oDBC, $oCGI , $oErr ) ; 
#### 

## If the authentication failed then redirect to the 
## error cgi and exit 
#### 

if ($oErr->Occurud) 

{ 

xd_fatal_error($oCGI,$oErr) ; 
exit; 
} 

#### 

## Otherwise we know that we have a valid session and 
## can continue normally 



= new CGI; 

= new XDrive: :DatabaseO; 
= new XDrive: : Error; 
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#### 



my $oAction = new XDrive :: Client :: Actions 
( 

$oToken, 
$oCGI 
) ; 



$oAction->FolderCreate ( ) ; 
xd_web_buttonindex ($oCGI) ; 
$oAction->DisconnectDB ( ) ; 
return 0; 
} 



a 



III 
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###forgot_password.cgi 



# ! /usr/bin/perl 
use strict; 

use lib ($ENV{PERL_XDRIVE_LIB} ) ; 

use CGI qw(param header); 

use CGI::Carp qw ( f atalsToBrowser ) ; 

use Token; 

use XDrive: :CGI (} ; 

use XDrive: : Template; 

use XDrive: : Client: : Registration; 

use XDrive: :DatabaseO: transaction; 

use XDrive: :DatabaseO: : Table: : DiskAccount ; 

use XDrive: :DatabaseO: : Table: :UserData; 

use XDrive: :DatabaseO: : Search; 

use XDrive: : Library; 

use XDrive: :Utils: : RandomString; 

use Mail : : Sendmail; 

% 4 . use constant TRUE => (1==1) ; 
Ul use constant FALSE => ! TRUE; 

#«################### 
\n my $request_template = "forgot_password request .thtml" ; 

my $thank_you_template = "f orgot_password t_y. thtml"; 

JU my $alert_jtemplate - "f orgot_password alert . thtml" ; 

S my $email_template = "password_admin email . thtml" ; 

HI ###################### 

exit Smain ( ) ; 

flj sub main { 

my $oCGI = CGI->new(); 

my $sEmailAddress = $oCGI->param { 1 txtEmailAddress 1 ) ; 

my $sUsername = $oCGI->param { 1 txtUsername ' ) ; 

my $oContent = new XDrive :: Template ( { ' partner_code ' => 'xdrv'} ); 

my $oNavigation = new XDrive :: Template ( { * partner code => 'xdrv'} }; 

my $oLayout = new XDrive :: Template ( { 1 partner_code • => 'xdrv'} ); 

## Load the required template HTML files. 
$oNavigat ion->load ( " f ront_nav . thtml " ) ; 
$oCont ent->load ( " f ront_signup . thtml " ) ; 
$oLayout->load ( "layout . thtml" ) ; 

if ( ($sEmailAddress) ($sUsername) ) { 

## Change user's password 

my ©characters - ( ' a ' . . ' z ' A' . . ' Z ' , ' 0 1 . . ' 9 ' ) ; 
my $sRandomKey = XDRandomString (8 , \@characters ) ; 

if (SPasswordSet ($oContent, $sUsername, $sEmailAddress , $sRandomKey) ) { 
sendMail ($oContent / $sUsername, $sRandomKey, $email_template) ; 
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} 

&display_form($oContent , $thank_you_template ) ; 
} else { 

&display_form ($oContent, $request_template) ; 

} 

## Print out the HTML and exit 
$oLayout->tags 
({ 

T header_graphic' => 'header_fiii.gif , 
'title' => 'What is my password?', 
'content 1 => $oContent->get , 
'navigation' => $oNavigation->get , 
}); 

$oLayout->clear; 

print header, $oLayout->get ; 
return 0; 

} 

sub PasswordSet 
{ 

my ($oContent, $sUsername, $sEmailAddress , SsPassword) = @_; 
my $bReturnValue = 0; 
my $status; 

my $oDiskAccount = XDrive :: DatabaseO: : Table :: DiskAccount->new () ; 
my $oUser = XDrive :: DatabaseO: : Table :: UserData->new (undef, $oDiskAccount- 
>fetchDBO() ) ; 

$oDiskAccount->loadWhere ("USERNAME", $sUsername) ; 

$oUser->loadWhere("SEQ", $oDis kAc count- > f etchColumn ( "US ER_SEQ" ) ) ; 

if ( (defined $oDiskAccount->f etchColumn ( "USER_SEQ") ) 

&& ( $oUser->f etchColumn ( "EMAIL_AD DRESS" ) eq $sEmailAddress ) 
) 

{ 

my $sPassEncrypted = XDEncrypt ($sPassword) / 
$oDiskAccount->setColumn( "PASSWORD", $sPassEncrypted) ; 
$oDiskAccount->update ( ) ; 
$oDiskAccount->commit () ; 
$bReturnValue = 1; 

} elsif( (defined $oDiskAccount->f etchColumn ( "USER_SEQ" ) ) 

( $oUser->f etchColumn { " EMAI L_ADDRES S " ) ne SsEmailAddress ) 

) 

{ 

&sendMail ($oContent, $sUsername, "", $alert_template, " NOT"); 

} 

$oDiskAccount->f inish ( ) ; 
$oDiskAccount->disconnect ( ) ; 

return $bReturnValue; 
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sub display_form { 

my ($oContent, $template) = @_; 
$oContent->load($ template) ; 

} 

sub sendMail { 

my ($oContent, $username, $password, $template, $not) = 



my ($name_first, $name_last, $email_address, $data) ; 
my $oSearch * XDrive : : DatabaseO: : Search->new (undef ) ; 



$data = $oSearch->XDUserInfoByUsername ($username) ; 
$name_first - $data-> [0] -> [0] ; 
$name_last = $data-> [0] -> [1] ; 
$email_address = $data-> [ 0] -> [2] ; 
$username - $data-> [0] -> [ 3] ; 

my $message = &get_message ($oContenr, $name_first, $name_last, Susernair* 
$password, $template) ; 



my %toXdrive 



To 


=> 


Bcc 


=> 


From 


=> 


Message 


=> 


Subject 


=> 


) ; 





> "$name_first $name_last <$email_address>", 



sendmail (ItoXdrive) ; 



} 



sub get_message { 

my ($oContent, $name_first, $name_Iast, $username, $password, $template) 

@_; 

$name_first = ( $name_f irst ) ? $name_first : ""; 
$name_last = ( $name_last ) ? $name_last : ""; 

$oContent->load($template) ; 
$oContent->tags 
({ 

' name_first T => $name_first, 
'name_last' => $name_last, 
'password 1 => $password r 
'username' => $username, 

}) ; 

return $oContent->get ; 
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###forgot_username.cgi 



# ! /usr/bin/perl 
use strict; 

use lib ($ENV{PERL_XDRIVE_LIB}) ; 

use CGI qw(header param) ; 

use CGI:: Carp qw ( f ataisToBrowser ) ; 

use Mail : : Sendmail; 

use Token; 

# use XDrive::CGI qw(:MAIN); 

use XDrive: : Template; 

use XDrive :: DatabaseO: : Search; 

use XDrive: : Library; 

use XDrive : : Utils : : Randoms t ring; 

M use constant TRUE => (1==1); 
Q. use constant FALSE => ! TRUE; 

sj ###################### 

i s |- my $invalid_template = "invalid_email . thtml" ; 

my $request_template = "forgot_username request . thtml" ; 

J: my $thank_you_template = "f orgot_username t_y. thtml"; 

my $email_template = " f orgot_username email . thtml"; 

y l ###################### 

Q exit &main ( ) ; 

\?£ sub main { 

U| my $oCGI = CGI->new(); 

Jjl my $sEmailAddress - $oCGI->param ( 1 txtEmailAddress ' ) ; 

^ my ($ar_usernames, $length) ; 

my $oSearch = XDrive :: DatabaseO: : Search->new (undef) ; 

my $oContent = new XDrive :: Template; 
my $oNavigation = new XDrive :: Template; 
my $oLayout = new XDrive :: Template; 

$oContent-->partner ( 1 xdrv ' ) ; 
$oNavigation->partner ( T xdrv ' ) ; 
$oLayout->partner ( ' xdrv 1 ) ; 

## Load the required template HTML files. 
$oNavigat ion->load { " f ront_nav . thtml " ) ; 
$oLayout->load ( "layout . thtml " ) ; 

## IF a parameter of email adress has been processed 
## and in the correct format, then retreive usernames 
.## associated with the email and send them. 

if ($sEmailAddress) 
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{ 

## added by kanlaya to check for correct email format 

44 **************************** 



if ($sEmailAddress =~ /.*\@.*\./) 
{ 

## Takes the email_address and returns an array__ref 
## of all the disk_account .usernames accociated 
## with that users user . email_address 

$ar_usernames = $oSearch->XDUsernameFromEmail (SsEmailAddress ) ; 
$length = @$ar_usernames; 

## IF there are usernames found for this address, 
## then email the address the list of usernames. 
if ($length > 0) 

{ 

SsendMail ($ar__usernames, $sEmailAddress , $length) ; 
} 

Ml 

p $oContent->load($thank_you_template) ; 

55 $oContent->tags ( { 1 emailAddress ' => $s Email Aadress , } ) ; 



else 



Hi 



} 



"H {$oContent->load ( $invalid_template) ; } 

SI 

HI ## end add 

w £#**************************** 
} 

else 

{$oContent->load($request_template) ; } 



## Print out the HTML and exit 
$oLayout->tags 
y ({ 

' header_graphic 1 => ' header_f ill . gif ' 
'title 1 => 'What is my username?' , 
'content 1 => $oContent->get , 
'navigation' => $oNavigation->get , 
} ) ; 

$oLayout->clear; 
print header, $oLayout->get ; 
return 0; 

} 

sub sendMail { 

my ($usernames, $email, $length) = @_; 



my $message = &get_message ($usernames, $email, $length) ; 



my %toXdrive = 

( 
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To => "Semail", 

Bcc => ' 1 , 

From => "support\3xdrive.com", 
Message ==> $message, 

Subject => "X: drive Username Reminder' 
) ; 

sendmail (%toXdrive) ; 

} 

sub get_message { 

my ($usernames, $email, $length) = 0_; 

my ($sUsername / $sPluraIS, $sPluralVerb) ; 
$sUsername = join("\n", 0$usernames) ; 
$sPluralS - ($length > 1}? "s" : ""; 
$sPluralVerb - ($length > 1)? "are" : "is"; 

my $oForm = new XDrive :: Template; 
$oForm->partner ( ' xdrv' ) ; 

$oForm->load($email_tempiate) ; 
$oForm->tags 
({ 

1 sEmailAddress 1 => $ email, 
'sUsername' => $sUsername, 
' sPluralS' => $sPluralS, 
'sPluralVerb' -> $sPluralVerb 

}); 

$oForm->clear; 
return $oForm->get; 
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###frame_generic.cgi 



# ! /usr/bin/perl 

## Written by Matt Clapp on 6/28/99 

## This CGI allows us to pass the sst and sid on to the inner frame 
use strict; 

use lib ($ENV{PERL_XDRIVE_LIB}) ; 
use CGI; 

use CGI:: Carp qw ( f atalsToBrowser ) ; 
use Token; 

use XDrive: : Library; 

use XDrive: : Template; 

use XDrive: : DatabaseO; 

use XDrive: : Error; 

use XDrive: : Client :: Security; 

use XDrive:: CGI qw (XDErrorToBrowser ) ; 



use XDrive: : CGI :: Cookie; 



&main; 
exit; 

"%l sub main 

S] { 

W! 



my $oCGI = CGI->new(); 



ft^ my $oCookie = XDrive :: CGI :: Cookie->new (' x_session_inf o 1 , $oCGI); 

J! my Slanguage = $oCookie->getElement (' language ') ; 

$language = 'english 1 unless $language; 



my SsThtmlFile = $oCGI->param ( f thtml 1 ) ; 
Q my $sFrameHeight = $oCGI->param ( 1 sFrameHeight 1 ) ; 

flj 

if ($sFrameHeight == "") 

{ 

$sFrameHeight="40"; 
} 



if ($sThtmlFile eq 1 download_client . thtml ' ) 
{ 

my $oTemplate = new XDrive :: Template ( { ? partner_code ' => 'xdrv'} ); 
$oTemplate->load ($sThtmlFile) ; 

$oTemplate->tags ( {'sFrameHeight' => $sFrameHeight , 

'language' => $language} ); 

print "Content-type : text/html\n\n" ; 
print $oTemplate->get { ) ; 
} 

elsif {$sThtmlFile eq f centerview . thtml 1 ) 
{ 

my $sFrameSet; 
if ($sFrameHeight > 1) 
{ 

$sFrameSet = n $sFrameHeight , * " ; 
} 
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else 

{ 

$sFrameSet = "1001,*"; 
} 

print «EOM; 
Content-type : text/html 

< FRAMESET ROWS="$sFrameSet " BCRDER=0 FRAMEBORDER=0 MARGINWIDTH-0 MARGINHEIGHT-0 

TOPMARGIN=0 LEFTMARGIN=0 f rameB order- 0 f rameSpacing=0> 

EOM 

if ($sFrameHeight > 1) 
{ 

print «EOM; 

< FRAME NAME= 1 controls 1 SRC= 1 /explorer/$language/buttcns . hzail r 
SCROLLING=NO MARGINWIDTH=0 MARGINHEIGHT-0 TOPMARGIN=0 LEFTMARGIN=C> 
EOM 

} 

print «EOM; 

< FRAME NAME= ' userData 1 SRC= T /cgi-bin/explorer_user_data . cgi 1 
SCROLLING=AUTO MARGINWI DTH-0 MARGINHEIGHT=0 TOPMARGIN=0 LEFTMARGIN=0> 
</FRAMESET> 
EOM 

} 

else 

{ 

## Security check. Since the thtml file is passed in via the URL 

the server 

## can be hacked by passing in . . / offsets to get the directory the 

hacker 

## wants. A cleaner way would be to pass in a number and use that 

number 

## to access a hash, and die with a security violation if no such 

has key 

## exists. 

my $oDBO - XDrive : : DatabaseO->new (undef , undef ) ; 
my $oErr - new XDrive :: Error ; 

my $oToken = xd_security_check ( $oDBO, $oCGI , $oErr ) ; 
#### 

## If the user failed to autenticate or an error occured then 

## redirect them to the error CGI and exit 

#### 

if ($oErr->Occurud) 
{ 

xd_fatal_error ($oCGI, $oErr) ; 

$oDBO->disconnect ( ) ; 

} 

warn "#ALERT hacking attempt by " . $oToken->data ( 'user' } . 

" from n .$ENV{REMOTE_IP}; 
my $sMessage = $oErr->ReturnMessageGivenCode (341) ; 
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XDErrorToBrowser ("", $sMessage, undef , $oTc<en) ; 

$oDBO->disconnect ( ) ; 

exit; 

} 
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###get_a_shared_fi!e.cgi 

# ! /usr/bin/perl 

use lib ($ENV{PERL_XDRIVE_LIB}) ; 
use CGI; 

use CGI:: Carp qw ( f atalsToBrowser ) ; 

use XDrive: :CGI; 

use XDrive: : Template; 

use XDrive: :DatabaseO: : Table: : DiskltemShare; 
use XDrive: :DatabaseO: : Table: : DiskAccount ; 
use XDrive: :DatabaseO: : Table: :UserData; 
use XDrive: :DatabaseO: : Table: : Reseller; 
use XDrive: : CGI: : Cookie; 

use strict; 

exit &main ( ) ; 

sub main { 

my $cgi = CGI->new(); 

my ($ClaimTicket, $oPage, $xdDBH) ; 

if ($ENV{ f QUERY_STRING ! } !~ /=/) 
{ 

$ClaimTicket - $ENV{ 1 QUERY_STRING 1 } ; 
} 

else 

{ 

$ClaimTicket = $cgi->param ( "claim_ticket " ) ; 
} 

if ( length ($ClaimTicket) < 5) 
{ 

$ClaimTicket = $ENV{ 1 PATH_INFO f } ; 

$ClaimTicket s/ A \///; 

} 

##make sure that if claim ticket ends in -SP we set language to Spanish 

and 

##truncate claim ticket 

if ($ClaimTicket /-SP$/) 

{ 

$ClaimTicket = substr ($ClaimTicket, 0, length ($ClaimTicket) -3) ; 
my $oCookie = new XDrive :: CGI :: Cookie ( 1 x_session_inf o 1 , $cgi) ; 
$oCookie->setElement 
({ 

'language 1 => 'Spanish 1 , 
}); 

print "Set-Cookie: T \ $oCookie->asString ( ) ; 

} 
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my $oDiskItemShare = XDrive :: DatabaseO :: Table :: DiskItemShare~>new () ; 
$oDiskItemShare->loadWhere("RANDOM_KEY", $ClainTicket ) ; 

my $diskAcccunt = $oDiskItemShare->f etchColumn ( "DISK_ACCOUNT JJSER_SEQ" ) ; 
$xdDBH = $oDiskItemShare->fetchDBO{) ; 

my $oUserAccount = XDrive :: DatabaseO :: Table :: UserData->new (undef, $xdDBH) 
$oUserAccount->loadWhere ( "SEQ" , $dis kAccount ) ; 

my $oReseiler = XDrive :: DatabaseO :: Table :: Reseller->new (undef , $xdDBH) ; 
$oReseller->loadWhere ( "SEQ" , $cUserAccount- 
>f etchColumn ( "RESELLER_SEQ" ) ) ; 

my $partner - $oReseller->f etchColumn ( "CODE" ) ; 

## If the disk item share was not in the database then just use an xdrive 
## look n 1 feel. NOTE!!!!! This should be changed to a plain looking 
## error screen. 

$partner = 'xdrv 1 if ! defined $partner; 

$oPage = new XDrive :: Template 
({ 

'partner^code' => $partner 

}); " 

$oPage->load ( ' get_a_shared_f ile frameset . thtml 1 ) ; 

$oPage->tags 
({ 

'ClaimTicket 1 => $ClaimTicket , 
1 referee 1 => $diskAccount , 
}); 

$oPage->clear ( ) ; 

print $cgi->header, $oPage->get; 

$oDiskItemShare->disconnect ( ) ; 

return 0; 

} 
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###get_a_s hared_fi letdown load . eg i 

# ! /usr/bin/perl 

use lib ($ENV{PERL_XDRIVE_LIB} ) ; 
use CGI; 

use Data :: Dumper; 

use XDrive::CGI qw(:MAIN); 

use XDrive :: Client :: Actions; 

use XDrive :: DatabaseO: : Search; 

use XDrive: : DatabaseO: : Table: :UserData; 

use XDrive: :DatabaseO: :Table: : DiskltemShare; 

use XDrive: : Template; 

use XDrive: : Error; 

use strict; 

&main; 
exit; 

sub main 
{ 

my ($sFileDescription, $sFileSize, $sRandomKey, $sSeq) ; 

my $cgi = CGI->new(); 

my $oErr = new XDrive :: Error; 

my $g_oShared; ## Shared object 

my $g_oSearch; ## Shared object 

my $g_oAction; ## Action object 

my $g_oFileStat; ## File stats 

$sRandomKey = $ENV { 1 QUERY_STRING ' } ; 

if ( ! $sRandomKey) 
{ 

ray $sMessage = $oErr->ReturnMessageGivenCode ( 1360 ) ; 
&display_error ($sMessage, $oErr) ; 

} 

else 

{ 

## Instantiate and load the shared object. 

$g_oShared = XDrive: : DatabaseO: : Table: : DiskItemShare->new (undef , 

undef ) ; 

$g_oSearch = XDrive: : DatabaseO: : Search->new ( $g_oShared->f etchDBO ( ) ) 

$g_oShared->loadWhere("RANDOM_KEY" / $sRandomKey) ; 
$sSeq = $g_oShared->fetchColumn{"SEQ") ; 

if ( !$sSeq) 
{ 

my $sMessage = $oErr->ReturnMessageGivenCode ( 1361) ; 

&display_error ($sMessage, $oErr) ; 

} 

## Call the client action constructor with the shared object 
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## which it will use to load all the needed client information. 
$g_oAction = new XDrive :: Client :: Actions ;$g_oShared, $cgi) ; 

my $sFile = join 

(V, 

$g__oShared->fetchColumn("ITZM_PATH") , 
$g_oShared->f etchColumn ( "ITZM_NAME" ) 
} ; 

$g_oFileStat = $g_oAction->FileStat ($sFile) ; 

if { !$g_oFileStat) { 

my $sMessage = $oErr->ReturnMessageGivenCode { 1362 ) ; 

&display_error ($sMessage, $oErr) ; 
} else { 

$sFileDescription = $g_oShared->f etchColumn ( "DESCRIPTION" ) ; 
$sFileSize = ($g_oFileStat->size { . > 1024)? int ( $g_oFileStat- 
>size()/1024) . "K" : 

$g__oFileStat->size () . " bytes"; 



&display_f orm ( $g_oShared- 
>fetchColumn("ITEM_NAME") , $sRandomKey, $sFileSize, SsFileDescription, $g_oSearch- 
>XDResellerCodeFromUserSeq($g_oShared->f etchColumn ( w DISK_ACCOUNT_USER_SEQ" ) ) ) ; 

} 

} 

$g_oShared->f inish ( ) ; 
$g_oShared->disconnect ( ) ; 
$g_oAction->DisconnectDB ( ) ; 



sub display_form 

my ($sFilename,$sRandomKey, $sFileSize, $sFi!eDescription, $sPartner ) =@_; 

my $oForm = new XDrive :: Template ; 
$oForm->partner ($sPartner) ; 

$oForm->load ( 1 get_a_shared_f ile download_screen . thtml ' ) ; 

$oForm->tags 
({ 

'sFilename' => $sFilename, 
1 sExtraPathlnfo' => $sFilename, 
'sRandomKey* => $sRandomKey, 
f sFileSize' => $sFileSize, 
f sFileDescription ! => $sFileDescription, 

}); 

$oForm->clear () ; 

print "content-type: text/html\n\n" , $oForm->get; 

exit (0) ; 

} 

sub display_error 
{ 

my ($message / $oErr) = @_; 
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if (!$message) 

{ 

$message = $oErr->ReturnMessageGivenCode ( 1363 ) ; 

} 

my $oForm = new XDrive :: Template; 
$oForm->partner ( 1 xdrv * ) ; 

$oForm->load ( 1 get_a_shared_f ile error . thtml ' ) ; 

$oForm->tags 

({ 

'message 1 => $message, 

}) ; 

print "content-type: text/html\n\n", $oForm->get; 
exit (0) ; 



4 



□ 
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###login.cgi 



# I /usr/bin/perl 

# Written by Martin Hald <mhald@geotribe.com> to verify that the user is 

# good to login, if they are then log them in and otherwise redirect to 

# a not authorized page. 

use strict; 

use lib ($ENV{PERL_XDRIVE_LIB}) ; 

use XDrive: :DatabaseO: : Table : : DiskAccount ; 

use XDrive: :DatabaseO: : Table: : UserSettings ; 

use XDrive: :DatabaseO: : Table: :UserQuota; 

use XDrive: :DatabaseO: : Table: : Language; 

use XDrive: : DatabaseO: : Search; 

use CGI qw(param redirect header cookie); 

use CGI; 

use XDrive: : CGI: : Cookie; 

use CGI:: Carp qw ( f atalsToBrowser ) ; 

XDrive: :CGI; 

XDrive: : Client: : Security; 
XDrive: : Error; 
XDrive: : Template; 
XDrive: : Library; 
XDrive: : DatabaseO; 
Mail: :Sendmail; 

Smain; 
exit; 



new CGI; 

new XDrive :: Error; 
= new XDrive: : DatabaseO; 

new XDrive: :CGI: : Cookie ( ' x_session_inf o 1 , $oCGI) ; 

my $oToken; 
my $sToken; 
my $sUsername; 
my $sPartnerCode; 

## johngaa add for dbexist check 

my $oDBO; 

if (XDDBConnectionCheck() XDNFSCheck ( ) ; 
{ 

$oDBO = new XDrive :: DatabaseO; 

} 

else 
{ 

$oDBO = undef; 

print redirect ( " /upgrading_index . html " } ; 
exit ; 

} 

## end of johngaa change 



sub main 
{ 

my $oCGI 
my $oErr 
##my $oDBO 
my $oCookie = 
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my $bSecurity = $oCGI->param ( 'bSecurity ' ) ; 

my $sPartnerToken = $oCGI->param ( ' partnerjtoken 1 ) ; 

my $passed_lang = $oCGI->param (' language ') ; 

##### 

## Attempt to authenticate the user by using one of the following two 
## authentication methods: username/password pair or partner token 
## authentication. 
##### 

if (! defined $sUsername && length (SsPartnerToken) > 20) 
{ 

authPartnerUser ( $oCGI , $oErr , $oDBO, \$sUsername, \$oTcken, 

\$sPartnerCode, $sPartnerToken) ; 
$sToken = $oToken->name ( ) ; 
} 

else 

{ 

authWebSiteUser (SoCGI, $oErr,$oDBO, \$sUsername, \$oToken) ; 
$sPartnerCode = 'xdrv'; 



##### 

## If an error occurud while trying to create a token then redirect 

## the user to the error page. 

##### 

if ($oErr->Occurud) 
{ 

$oDBO->disconnect ; 

xd_f atal_error ($oCGI, $oErr) ; 

exit; 



##### 

## If we have gotten here then we have an authenticated user. 
W # # # # # 

ru 

##### 

## Build and print out cookies 
##### 

my SsLanguage = getLanguage ($oDBO, $sUsername) ; 



ti! 



##check if user's language is the same as passed language 

if ( (length ($passed_lang) > 0) && $sLanguage ne $passed_lang) 

{ 

##update db here to new language 
setLanguage ($oDBO, $sUsername, $passed_lang) ; 
##update session to new language 
$sLanguage - $passed_lang; 

} 



##delete the promo cookie; this will not be set here and we 
##don ! t want an old one hanging out 
#,#promo cookies should be set in promo, cgi 

$oCookie->deleteElement ( 'promo' ) if $oCookie->getElement ( 'promo 1 ) ; 
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$oCookie->set Element 
({ 

'language' => $sLanguage, 
'partner 1 => $sPartnerCode, 
>); 

print M Set-Cookie: " . $oCookie->asString ( ) ; 

print "Set-Cookie: SST=$sToken; domain= . xdrive . com; path=/\n" 
if $sPartnerCode ne 'xdrv'; 



##### 

## write user login to the database 
##### 

SincrementLoginNumber ($oDBO, $sUsername, $sLanguage, $sPartnerCode ) ; 



,##### 

## Send the user off into thier file explorer 
##### 

if ($ENV{ 1 HTTP_USER_AGENT 1 } /^xdwin/) 
{ 

print $oCGI->redirect ("?sst=" . $oToken->name ( ) . "&sid=0"); 
} 

else 

{ 

xd_web_open($oCGI, "", "", \%ENV, $bSecurity) ; 
} 

$oDBO->disconnect; 

return 0; 

} 



sub isYesterday () 
{ 

## 

## Date: 01/25/99 

## used to check of a date if its today or not 
## 

my $last_login - shift; 
my $nSec; 
my $nMin; 
my $nHour; 
my $sDay; 
my $nDay; 
my $nMonth; 
my $nYear; 



## Seconds 
## Minutes 
## Hours 
## Weekday 

## Numeric date (01-31) 
## Numeric month (01-12) 

## Numeric year (00-99) 



my $todaysDate = ($nSec, $nMin, $nHour, $nDay, $nMonth, $nYear, $sDay) 
(localtime (time) ) [0, 1,2, 3, 4, 5, 6] ; 

$last_login =- /{ [\d] +)-( [\d]+)- ( [\d]+) /i; 
my $last_login_year = int($l); 
my $last_login_month = int{$2); 
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•^3 ■ 



my $last_login_day = int($3); 

if ($last_login_year < $nYear) 
{ 

return 1; 

} 

if ($last_login_month < $nMonth) 
{ 

return 1; 

} 

if ($last_login_day < $nDay) 

{ 

return 1; 

1 

return 0; 



sub incrementLoginNumber ( ) 
{ 

my $oDBO = shift; 
my $sUsername = shift; 
my $sLanguage = shift; 
my $sPartnerCode = shift; 



my $oDiskAccount = XDrive :: DatabaseO: : Table :: DiskAccount- 
"M >new (undef , $oDBO) ; 

U1 $oDiskAccount->loadWhere ("USERNAME", $sUsername) ; 

9 $oDiskAccount->f inish; 

g my $timesLoggedIn = $oDiskAccount->f etchCoiumn { "LOGIN_NUM" ) ; 

my $user_seq = $oDiskAccount->f etchCoiumn ( M USER_SEQ" ) ; 



S» ## johngaa add 

M ## insert a warn in the error log if this is the 

PJ if ($ENV{ ' HTTP_USER__AGENT 1 } =- / A xdwin/) 

{ 

my $todaysDate = XDTodayO; 

warn "#client_login user_seq=$user_seq username=$sUsername 
date=$ todaysDate# " ; 

} 

## end of johngaa warn of first entry 



i f ( $ t imesLoggedln ) 
{ 

$t imesLoggedIn++ ; 
} 

else 

{ 

$t imesLoggedIn=l ; 
} 

$oDiskAccount->setColumn("LOGIN_NUM", $timesLoggedIn) ; 
$oDiskAccount->setColumn("LAST_LOGIN" / XDTodayO ) ; 
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my $status = $cDiskAccount->update ( ) ; 

if ($status > -I) 
{ 

$oDiskAccount->commit { ) ; 
$oDiskAccount->f inish ( ) ; 

=r# johngaa modify to exclude college club 
*# and quepasa users out of the extra space 
*# promo 

my $oUserData = XDrive :: DatabaseO: : Table :: UserData- 

>new{undef , $oDBO) ; 

SoUserData->loadWhere ( "SEQ" , $user_seq) ; 
my $reseller_seq = $oUserData- 
>f etchColumn { "RESELLER_SEQ" ) ; 

if (! (isResellerSeqCC_QUPA($oDBC,$reseller_seq) ) ) 

##give user extra 10MB if 10th login 

if ;$timesLoggedIn — 10) 

{ 

my $oUserQuota = XDrive :: DatabaseO: : Table :: UserQuota- 

>new (undef , $oDBO) ; 

$oUserQuota->loadWhere ("USER_SEC", Saser_seq) ; 
my $additional_quota = $oUserQucra- 
>incrementQuota ($user_seq, 10240) ; 

if ($additional_quota > 0) 

&send_emaii ($user_seq, $0^30, 
$additional_quota,$sLanguage, $sPartnerCode ) ; 

} 

} 

} 

} 

else 
{ 

# $oDiskAccount->rollback( ) ; 
} 



sub isResellerSeqCC_QUPA 
{ 

my $oDBO - shift; 

my $reseller_seq = shift; 

my $dbh = $oDB0->f etchDBH ( ) ; 

my $sql_stmt = "SELECT code FROM reseller WHERE seq=?"; 
my $cmd; 
my @data; 

$cmd = $dbh->prepare{$sql_stmt) ; 

$cmd->execute ( ($reseller_seq) ) ; 

@data = $cmd->f etchrow__array; 

if ($data[0] eq 'cc' I I $data[0] eq 'qupa') 

{ 
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return 1; 

##print "should return a true\n" 

} 

return 0; 

} 



.K3S5, 



sub send_email 
{ 

my $user_seq = shift; 

ray $oDB0 « shift; 
my $additional_quota = shift; 
my $sLanguage = shift; 
my $sPartnerCode = shift; 

if ($sPartnerCode eq 1 cc 1 ) 
{ 

return; 

> 



##comes in as k, change to megabytes 
my $mbs = $additional_quota/1024 ; 



my $oUserData = XDrive :: DatabaseO: : Table :: UserData->new (undef, $c230) ; 
$oUserData->loadWhere ( " SEQ" , $user_seq) ; 

my $email__address = $oUserData->f etchColumn ( "EMAIL_AD DRESS" ) ; 
my $name_first = $oUserData->f etchColumn ( "NAME_FIRST" ) ; 
my $name_last = $ oUserDat a- >f etchColumn ( n NAME_LAST") ; 

my $oTemplate = new XDrive :: Template 

({ 

'language 1 => $sLanguage, 

'partne^code' => $sPartnerCode, 
}); 

$oTemplate->load ( 1 received_10MB_101ogins . thtml T } ; 
$oTemplate->tags ( { 

'mbs T => $mbs, 
}) ; 

$oTemplate->clear ( ) ; 

my $message = $oTemplate->get ; 

my %toXdrive = 
( 

To => r, $name_first $name_last <$email_address>" , 

Bcc => ' 

From => "support \@xdrive. com", 

Message => $message, 

Subject => "Congratulations!" 

); 

sendmail (%toXdrive) ; 



} 



sub authPartnerUser 
{ 



d:\my documents\x-<lrive\aH cgi fiJes.toc.aj doc 



67 of 148 



my $oCGI = shift; 

my $oErr = shift; 

my $oDBO = shift; 

my $rsUsername = shift; 

my $roToken = shift; 

my $rsPartnerCode = shift; 

my $sPartnerToken = shift; 

my $oCookie = new XDrive : :CGI :: Cookie (' x_session_inf c ' , $oCGI) 

my $oPartnerToken = new Token 
( { 

'err' => $oErr, 
'dbh' ==> $oDBO, 

}); 

$oPartnerToken->load ($sPartnerToken) ; 

return if $oErr->Occurud; 

$$roToken = new Token 
({ 

'dbh' => $0080, 
'err 1 => $oErr, 

■ user_sequence ' => $oPartnerToken->data { 1 user_seq 1 ) , 
} ) ; 

$$roToken->create ( ) ; 
return if $oErr->0ccurud; 

### Edited by Justin so that the partner_code is looked for 
### in the cookie instead of the token table. 
### And then again because I shouldn't have done thaz. The 
### partner code hasn't been set in the cookie by this point, 
### so we shouldn't be looking in there for it. 
$$rsPartnerCode = $oPartnerToken->data { ' partner_code ■ } ; 
# $$rsPartnerCode = $oCookie->getElement (' partner 1 ) ; 
$$rsUsername = $oPartnerToken->data ( 1 user 1 ) ; 

$$roToken->data ( ' ip ' , $ENV{ REMOTE_ADDR} ) ; 
$$roToken->data ( ' browser ' , $ENV{ HTTP JJSER_AGENT } ) ; 
$$roToken->data( 'user' , $$rsUsername) ; 

$$roToken->data { ' user_seq' , $oPartnerToken->data ( ' user_seq' ) ) ; 
$$roToken->data ( ' partner_code ' , $$rsPartnerCode ) ; 
$$roToken->data ( ' disk_account_seq' , $o?artnerToken- 
>data ( 1 disk_account_seq' ) ) ; 
$$roToken->save; 

$oPartnerToken->delete ( ) ; 



sub authWebSiteUser - 
{ 

my $oCGI = shift; 

my $oErr » shift; 

my $oDB0 = shift; 

my $rsUsername = shift; 

my $roToken = shift; 
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my $sPassword = $oCGI->param { ' pass 1 ) ; 
$$rsUsername = $oCGI->param ( 1 user f ) ; 



if (xd_auth_password ($$rsUsername, $sPassword, $oDBO) ) 
{ 

## Login the user info X: drive and get the session token 
$$roToken = xd_login ($0001, $$rsUsername, $oErr, $oDBO) ; 
} 

else 

{ 

$oErr->AddErrorByErrorCode ( ' 501 ' } ; 
} 



sub getLanguage 
{ 

my $oDB0 = shift; 

my $sUsername = shift; 

M my $ language; 

ri ## get the user's language out of the database 

\g my $oDiskAccount = XDrive :: DatabaseO :: Table :: DiskAccount- 

>new(undef , $oDB0) ; 

$oDiskAccount->loadWhere ( "USERNAME" , $sUsername) ; 
$oDiskAccount->f inish; 

my $userSeq = $oDiskAccount->f etchColumn ( "USER__SEQ n ) ; 



UJ 



s my $oUserSettings = XDrive :: DatabaseO: : Table :: UserSettings- 

Q >new(undef,$oDBO) ; 

ffj $oUserSettings->loadWhere ( "USER_SEQ" , SuserSeq) ; 

y> $ oUser Sett ings->f inish; 

my $language = $oUserSettings->f etchColumn { "LANGUAGE" ) ; 

5 s ! if ($language eq 11 ) 

m j 

$language = 'english'; 
} 

else 

{ 

## Get language from database given code 
my $oLanguage = XDrive :: DatabaseO :: Table :: Language- 
>new(undef , $oDB0) ; 

$oLanguage->ioadWhere { "SEQ", $language) ; 
$oLanguage->f inish; 

$language = $oLanguage->f etchColumn ( "CODE" ) ; 
} 

return $language; 
} 



sub setLanguage 
{ 

##set the LANGUAGE column of the User_Settings table to passed language 
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my $oDBO = shift; 

my $sUsername = shift; 

my $language ~ shift; 

my ($rv, $errorCode) ; 

## get the user's language out of the database 
my $oDiskAccount = XDrive :: DatabaseO: : Table :: DiskAccour.z- 
>new(undef , $oDBO) ; 

##grab right table 
$oDiskAccount->loadWhere ( "USERNAME" , $sUsername) ; 
$oDiskAccount->f inish; 

my $userSeq = $oDiskAccount->fetchColumn ( "USER_SEQ" ) ; 

my $oUserSettings = XDrive :: DatabaseO: : Table :: UserSettir.gs- 
>new(undef , $oDBO) ; 

$oUserSettings->loadWhere { "USER_SEQ n , $userSeq) ; 
$oUserSet tings ~>f inish; 

##grab the seq number of the LANGUAGE being passed 

my $oLanguage = XDrive: : DatabaseO: : Table :: Language->new(undef , $oDBO) 
$oLanguage->loadWhere { "CODE" , $language ) ; 
$oLanguage->f inish { ) ; 

my $seq_lang = $oLanguage->f etchColumn ( "SEQ" } ; 

eval 
{ 

## 

##set language here 
$rv = 0; 

$oUserSettings->setColumn ( 1 LANGUAGE ' , $seq_iang) ; 
$rv = $oUserSettings->update ( ) ; 

J r 

if ($rv == 0) 

$oUserSettings->rcilback ( ) ; 
$errorCode = 0; 

else 

$oUserSettings->commit () ; 
$errorCode = 1; 

return $errorCode; 
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###Iogout.cgi 



# ! /usr/bin/perl 

## Program to log the user out, currently hacked to redirect to the homepage. 

## Modified by Justin on 10/15/99 to be Security. pm friendly 

## and get rid of the XDrive::CGI stuff. 

use strict; 

use lib ($ENV{PERL_XDRIVE_LIB) ) ; 
use CGI; 

use CGI:: Carp qw ( f atalsToBrowser ) ; 
use XDrive :: Client :: Security; 
use XDrive: : DatabaseO; 
use XDrive :: Error ; 



&main; 
exit; 



sub main 




my $oCGI = CGI->new(); 

my $oDBO = new XDrive :: DatabaseO; 

my $oError = new XDrive :: Error ; 



##removes token from the database 
xd_logout ($oDBO, $oCGI, $oError) ; 



$oDBO->disconnect ; 



ru 



print $oCGI~>redirect ( ! / T ) ; 
return 0; 



d:\my documents\x-dnve\aJl cgj files.toc.aj.doc 



71 of 148 



###navbar.cgi 



# 1 /usr/bin/perl 

## Written by Martin Haid <mart ingxdrive . com> on Sun Sep 5 1999 
## Script to dynamically show the correct tempate based on which 
## partner is looking at the web site. 

use strict; 

use lib ($ENV{PERL__XDRIVE_LIB}) ; 
use CGI; 

use XDrive: : Library; 

use XDrive: : Template; 

use XDrive: : Error; 

use XDrive :: DatabaseO; 

use XDrive: : Client :: Security; 

&main; 
exit; 

sub main 
{ 



## Load the session token 
my $oErr = new XDrive :: Error ; 
!5 5 my $oDBO = new XDrive :: DatabaseO; 

my $oCGI = new CGI; 

my $oCookie = new XDrive :: CGI ;: Cookie (' x_session_inf o ' , $cCGI); 
#### 

## Attempt to autenticate the user 
#### 

my $oToken = xd_security_check($oDBO, $oCGI, $oErr) ; 
#### 

## If the user does not validate or an error occurud 
## then redirect to the error CGI and exit 



if { $oErr->Occurud) 
{ 

xd_fatal_error ($oCGI, $oErr) ; 

$oDBO->disconnect ( ) ; 

exit; 
} 

#### 

## Otherwise we have validated and should load the navbar 

## associated with the partner 

#### 

### Edited by Justin so that partner_code is looked for in 
### the cookie instead of the token table. 
# my $oForm = new XDrive :: Template 
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# ({ 

# 'partner_code* => $oToken~>data { ' partner_code 1 ) 

# }); 

my $oForm = new XDrive :: Template 
({ 

? partner_code' => $oCookie->getElement { 'partner ' ) 
> > ; 

$oForm->load ( ! navbar . thtml 1 ) ; 
#### 

## Print the navbar and stop 
#### 

print "Content-type: text/html\n\n" ; 
print $oForm->get; 

$oDBO->disconnect ( ) ; 

i R return 0; 

\[ 
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###password_change.cgi 



# ! /usr/bin/perl 

## Written by Lucas McGregor on ??? 



use strict; 

use lib ($ENV{PERL_XDRIVEJLIB} ) ; 

use CGI qw (header param) ; 

use CGI:: Carp qw ( f atalsToBrowser ) ; 



use Token; 

use XDrive: : DatabaseO; 

use XDrive: : Error; 

use XDrive:: CGI qw(:MAIN); 

use XDrive: : Client: :Security; 

use XDrive: : Client: : Registration; 

use XDrive: : DatabaseO: : Transaction; 

use XDrive: : DatabaseO: : Table : : DiskAccount ; 
H use XDrive: : Library; 
U use XDrive : : Template ; 

Sj use constant TRUE => (1—1); 
hj : use constant FALSE -> ! TRUE; 

&main; 
in exit; 

y = 

^ sub main 

=ass| { 

lU my $oCGI = CGI->new(); 

M my $oDBO = new XDrive :: DatabaseO; 

my $oErr = new XDrive :: Error ; 



n= #### 

## Attempt to autenticate the user 

#### 



my 



$oToken = xd_security_check ($oDBO, $oCGI, $oErr) ; 



#### 

## If an error occurs or the user fails to autenticate then redirect 

## to the error CGI and exit 

#### 



if ($oErr->Occurud) 
{ 

xd_fatal_error ($oCGI, $oErr) ; 

exit ; 

} 



#### 

## Otherwise have have autenticated the user and can proceed 
#### 
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my $sUsername = $oToken->data ( 1 user 1 ) ; 

my $sPasswordNew = $oCGI->param ( ' txtPasswordNewl 1 ) ; 

my $sPasswordNewConfirm = $oCGI->param ( 1 txtPasswordNew2 ' ) ; 
my $sPassword01d = $oCGI->param ( 1 txtPasswordOldl ' ) ; 

if ( ($sPasswordNew eq * ' ) | i ($sPasswordNewConf irm eq 1 1 ) j | 
($sPassword01d eq '')) 
{ 

##if any of the fields is blank, give em error message 
my $sMessage = $oErr->ReturnMessageGivenCode ( 1340 ) ; 
XDErrorToBrowser ( " " , $sMessage, undef , $oToken) ; 
} 



## Change user's password 

PasswordSet ($sUsername, $sPasswordNew, $sPassword01d, $oToken, $oErr, $oCGI) 



return 0; 
} 



## PasswordSet: Change user's password 

############################################################################# 



sub PasswordSet ($$) 
{ 

my $sUsername = shift; 
my $sPassword = shift; 
my $sPassword01d = shift; 
my $oToken = shift; 
my $oErr = shift; 
my $oCGI = shift; 



## (I) User in question 
## (I) New password 
## (I) Old password 
## (I) Token object 



my $sPassEncrypted = XDEncrypt ($sPassword) ; 



my $oDiskAccount = XDrive :: DatabaseO :: Table :: DiskAccount->new {) ; 
$oDiskAccount->loadWhere ( "CSERNAME" , $sUsername) ; 



if ( ! PasswordsMatch ($oDiskAccount- 
>fetchColumn ("PASSWORD") , $sPassword01d) ) 
{ 

my $sMessage = $oErr->ReturnMessageGivenCode (1341) ; 

XDErrorToBrowser ( "", SsMessage, undef , $oTcken) ; 

} 

if (! defined $oDiskAccount->f etchCoiumn ( "USER_SEQ" ) ) 
{ 

my $sMessage = $oErr->ReturnMessageGivenCode ( 1342 ) ; 

XDErrorToBrowser ("", $sMessage, undef, $oToken) ; 

} 

$oDiskAccount->setColumn { "PASSWORD" , $sPassEncrypted) ; 
my $status * $oDiskAccount->update ( ) ; 



## If no error, then commit 

## Else rollback and show an error 

if ($status > -1) { 

$oDiskAccount->commit () ; 
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} 

else 
{ 

$oDiskAccount->rollback() ; 

my $sMessage = $oErr->ReturnMessageGivenCode (1343) ; 
XDErrorToBrowser ("", $sMessage, undef , $oToken) ; 

} 

$oDiskAccount->f inish ( ) ; 
$oDiskAccount->disconnect ( ) ; 

my $oTemplate = new XDrive :: Template ( { 1 partner_code ' => 'xdrv'} ); 
$oTemplate->load( 1 password_changed. thtml 1 ) ; 
print $oCGI->header () , $oTemplate->get ; 

} 

## PasswordsMatch: Check an encrypted password against an unencrypted 
## password and return true or false. 

sub PasswordsMatch 
{ 

my $sEncrypted = shift; ## current password 
my $sToCheck - shift; ## string to check 

## Encrypt the passed password with the salt from the password taken 
## from the database. 

my ($sSalt) = $sEncrypted =~ / A (\w{2})/; 

## Do the passwords match? If so then return true, otherwise false, 
if ($sEncrypted eq crypt ($sToCheck, $sSalt ) ) 
{ 

return TRUE; 

} 

return FALSE; 

} 
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###promo,cgi 



# ! /usr/bin/perl 
## 

## File: promo. cgi 
## 

## Written by Justin White on 10/25/99. 

## Sets a promo cookie and redirects to the home page. 



5 S 



use strict; 

use lib ($ENV{PERL_XDRIVE_LIB}) ; 

use XDrive :: Template; 

use XDrive :: DatabaseO; 

use XDrive: : CGI : .-Cookie; 

use XDrive: : DatabaseO: : Search; 

use CGI; 

use CGI:: Carp qw (f atalsToBrowser ) ; 

&main ( ) ; 

exit; 



sub main { 

\f my ($cookie, $promo, %new_info, $oSearch, $oTemplate) ; 

ill 

I' my $oCGI = CGI->new(); 

}*$ my $oCookie = XDrive :: CGI :: Cookie->new ( 1 x_session_info ' , $oCGI); 

] U my $path_info = $ENV{ 1 PATH_INFO' } ; 

my $sClaimTicket - $oCGI->param { ' ct 1 ) ; 

flj if ($sClaimTicket) { 

## 

# Via cookie, set the promo so that signup_account . cgi treats 

# it as a promo and set the claim ticket code so that we can 

# remove that data from the batch_user_data taole. 
## 

$oCookie->setElement ( {'ct' => $sClaimTicket } }; 

} 



if ($path__info) { 

$path_info =~ s/ A \///; 

$oCookie->setElement ( {'promo 1 => $path_info} ); 
$oCookie->setPath ('/'); 



##if user is coming from the befree promo, set a cookie with their 
ttsource id, be Free requires this for tracking purposes 
if ($pathJLnfo /befree/) 
{ 

my $sourceid = $oCGI->param { 1 sourceid' ) ; 

print "Set-Cookie: sourceid=$sourceid; domain=. xdrive . com; path=/\n" 
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} 



my $oDBO = XDrive : : DatabaseO>new ( ) ; 

my SoSearch * XDrive :: DatabaseO: : Search->new ($oDBO) ; 

my Sbind_array = ( $path_inf o) ; 

# my $st = "SELECT p. template, p . redirect_url, dl.code 

# FROM xdrive. promo p, xdrive . v_language dl 

# WHERE p.uri = ' $path_inf o 1 

# AND p. du_language = dl . seq {+) " ; 

my $st = "SELECT p. template, p . redirect_url, dl.code 
FROM xdrive. promo p, xdrive . v_language dl 
WHERE p.uri - ? 
AND p. du_language = dl . seq(+)"; 

# my $data « $oSearch->XDSQLSearch ($st ) ; 

my $data = $oSearch->XDSQLSearch {$st, \(§bind_array) ; 
my Srows = @{$data}; 



if ($rows > 0) { 

p my $template = $$data[0][0] 

my $redirect_url = $$data[0][l] 

my Slanguage = $$data[0] [3] 



$oCookie->setElement ( {' language' => $language} }; 
print "Set-Cookie: ", $oCookie->asString ( ) ; 



8 if ($template) { 

fU' eval { 

M $oTemplate = new XDrive :: Template ( {'cookie' => $oCookie / 

j*4 'partner^code ' => 'xdrv'} ) 

m $oTemplate~>partner ( 1 xdrv ' ) ; 



$oTemplate->load ( "promo/$template ,T ) ; 

} ; 



if ($@) { 

print $oCGI->redirect ( ' /' ) ; 
warn "$@\n"; 

} 

else { 

print $oCGI->header ( ) , $oTemplate->get ; 

} 



$oSearch->disconnect ; 



} 

elsif ($redirect_url) { 

print $oCGI->redirect ($redirect_url) ; 

$oSearch->disconnect ; 

} 

else { 

print $oCGI->redirect( f / f ); 
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$oSearch->disconnect ; 

} 

} 

else { 

print $oCGI->redirect (V ) ; 

} 

} 

else { 

print $oCGI->redirect { '/' ) ; 
$oSearch->disconnect ; 

} 

return; 



n r 



Hi 
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###removespace.cgi 



# I /usr/bin/perl 

######## #######################################«####################3 
## Written by Karen Eppinger 

## removespace . cgi - cancels additional space requests 
##### ###########################################################it####3 

use lib ($ENV{PERL_XDRIVE_LIB} ) ; 

use XDrive: : Error; 
use XDrive: : Library; 
use XDrive: : DatabaseO; 

use XDrive: :DatabaseO: :Table: :Reseller; 

use XDrive: :DatabaseO: : Table: :Deal; 

use XDrive : : DatabaseO : : Table : : I tern; 

use XDrive: : DatabaseO: : Table: : DiskAccount ; 

use XDrive: : DatabaseO: : Table: :UserData; 

use XDrive: :DatabaseO: :Table: : UserPurchase; 

use XDrive: : Client :: Actions; 

use XDrive: : DatabaseO :: Search; 

use XDrive: : Sale: : Purchase; 

use Mail: :Sendmail; 

use CGI:: Carp qw(fatalsToBrowser) ; 

use CGI; 

use XDrive: : Template; 
use XDrive:: CGI qw(:MAIN); 
use XDrive: : Client: -.Security; 
use EpochClient_ssl; 

use strict; 

$ENV{ ! PATH 1 } = f /bin'; 

delete @ENV{qw(IFS CDPATH ENV BASH_ENV) } ; # Make %ENV safer 
exit &main; 

###«####################################################################=## 

## main: main function calls all others 

## 

## 

############################################################*###########?=« 



sub main 
{ 

my $oCGI = CGI->new(); 

my $oDBO = new XDrive :: DatabaseO; 

my $oErr = new XDrive :: Error ; 

#### 

## Attempt to authenticate the user 
#### 

my $oToken = xd_security_check ( $oDBO f $oCGI, $oErr) ; 
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#### 

## If an error occurs during autentication or authentication fails 
## then redirect to the error CGI and exit 
#### 

if {$oErr->Occurud) 
{ 

xd_f atal_error ($oCGI, $oErr) ; 
exit; 
} 

#### 

## Otherwise we have a valid session 
#### 

my $sUserName = $oToken->data ( 1 user 1 ) ; 
my $oTemplate = new XDrive: : Template 
({ 

l partner_code ! => $oToken->data ( T partner_code ' ) 

}); 

## used to figure whether to give user the form or process the form 
:f! my $sAction = $oCGI->param ( "action" ) ; 

Uj ## Create a DBH 

H my $oDBH = XDrive :: DatabaseO->new () ; 

Lfl ## if the action is a request type 

s if ($sAction eq 'process 1 ) 



! 5 



Mi 



##else we process the form input 

&CheckSpaceUsed($oCGI, $sUserName, $oTemplate r $oToken, $oDBH, $oErr) ; 
elsif ($sAction eq ' intro') 

&ShowIntroPage ($oTemplate, $sUserName, $oToken, $oCGI) ; 

else 

## we give the user the form 

&ShowSpace ( $sUserlSfame, $oTemplate, $oToken, $oDBH, SoErr) ; 
$oDBH->disconnect ( ) ; 

\ 

############################################################################ 
## CheckSpaceUsed: make sure the user has enough free space for his files 
## if not, do not let him cancel 

##### #####################################################=4################ 

sub CheckSpaceUsed 
{ 

my $oCGI = shift; 

my $sUserName = shift; 

my $oTemplate = shift; 
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my $oToken = shift; 
my $oDBH = shift; 
my $oErr = shift; 

##we need to get the number of fields so we know what to process 
my dfields - $oCGI->param; 
my $checked = 0; 

my $returnVaiue = T 1 ; 

##for each checked item, either cancel or tell user they may not cancel 
##because space used is larger than space available after cancelation 



for (my $i=0; $i<$#fields; $i++) 
{ 

if ($fields[$i]=~/ A tc_/) 
{ 

$fields[$i]=-s/ A tc_//; 

my $oPurchase = new XDrive: : Sale :: Purchase ($oDBH) ; 

my @message_dbmessage = $oPurchase->CanceiItem ($f ields [$i] , 

$sUserName) ; 

$returnValue . =$message_dbmessage [0] ; 



;f| $checked++; 

Jl if ($message_dbmessage [1] i= 0) 

{ 

*j $oDBH->commit ( ) ; 

} 

else 
{ 



$oDBH->rollback () ; 



Q ] 



} 



r? i 



if ($checked>0) 



} 

else 
{ 



##show the page that tells user if space was cancelled or not 
&ShowCanceled($returnValue, $oTemplate) ; 



ttuser hasn't checked anything, give em error page 
my $sError = $oErr->ReturnMessageGivenCode ( 1301 ) ; 
XDErrorToBrowser ("", $sError, undef, $oTcken) ; 



############################################################################ 
## ShowCanceled: tell user space was cancelled 

sub ShowCanceled 
{ 

my $sItemsCanceled = shift; 
my $oTemplate = shift; 
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## Load the required template HTML files. 
$oTemplate->load ( 1 removespace_ok . thtml ' ) ; 
$oTemplate->tags 
({ 

1 items' => $sItemsCanceled 
}) ; 

print "Content-type: text/html\n\n ,r ; 

print $oTemplate->get { ) ; 

} 

##########################################################################-# 
## ShowSpace: shows the user the initial page with their current space 
## allocation 

######################################################4###################r# 

sub ShowSpace 
{ 

my $sUserName = shift; 
my $oTemplate = shift; 
my $oToken = shift; 
my $oDBH = shift; 
my $oErr = shift; 

my $sMessage = $oErr->ReturnMessageGivenCode (1302) ; 
$sMessage = SGetltems ($sUserName, $oToken, $oDBH, $oErr) ; 

## Load the required template HTML files. 
$oTemplate->load ( 1 removespace_request . thtml 1 ) ; 
$oTemplate->tags 

({ 

1 items' => $sMessage 
} ) ; 

print "Content-type: text /html\n\n" ; 
print $oTemplate->get ( ) ; 



sub ShowIntroPage 
{ 

my $oTemplate =» shift; 
my $sUserName - shift; 
my $oToken = shift; 
my $oCGI = shift; 

my $oAction = new XDrive :: Client :: Actions 
( 

$oToken, 
$oCGI 

); 

my $quotaUsed = $oAction->QuotaUsed{) ; 
$quotaUsed - sprintf ( "%2 . 2f " , $quotaUsed/1024 ) ; 
my $quotaLimit = $oAction->QuotaLimit ( ) ; 
$quotaLimit = sprintf ( "%2 . 2f", $quotaLimit/1024 ) ; 

$oTemplate->load { 1 removespace__intro . thtml ' } ; 
$oTemplate->tags 



?=? 3 

\ M 
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{{ 

1 quotaUsed 1 => $quotaUsed, 
1 quotaLimit T => $quotaLimit 
}) ; 

$oTemplate->ciear ( ) ; 

print "Content-type: text/html\n\n"; 
print $oTemplate->get ( ) ; 

} 

sub Getltems 
{ 

my $sUserName = shift; 
my $oToken = shift; 
my $oDBH = shift; 
my $oErr = shift; 

my $oDiskAccount = XDrive :: DatabaseO: : Table :: DiskAccount- 
>new(undef , $oDBH) ; 

$oDiskAccount->loadWhere ( 1 USERNAME 1 , $sUserName) ; 

##now load all items in the userjpurchase database that are 
##owned by this user 

my $userSeq = $oDiskAccount->f etchColumn { ' USER_SEQ' ) ; 

##passing a 0 as the last parameter returns all non-canceled items 
my $oSearch = XDrive :: DatabaseO: : Search->new (undef ) ; 
my $array = $oSearch->XDUserPurchases ( $userSeq, 0 ) ; 

##see if the array returned any items 

if ($array->[0] [0] eq f f ) 
{ 

my $sError = $oErr->ReturnMessageGivenCode ( 1302 ) ; 

XDErrorToBrowser ( ' remove spa ce_noi terns . t html 1 , $sError, 1, $oToken) ; 

} 

my $i; 

my $ items - 1 1 ; 

for $i(0. ,$#{$array}) 
{ 

##storing the complete string returned by Epoch 

##must take only stuff after the | zo cancel transaction 

##and chop off last character which seems to be a line return 

##may have to alter this if we see problems 

chop($array-> [$i] [4] ) ; 

my @aCodes=split(/\|/, $array-> [$i] [4 ] ) ; 
my $itemName = 'tc^ 1 . $aCodes[l]; 
$ i t einName=~ s / - / / ; 

##Get the name associated with this item 

my $oDeal = XDrive :: DatabaseO: : Table :: Deal->new (undef , $oDBH) ; 

$oDeal->loadWhere { 1 SEQ 1 , $array->[$i] [2] ) ; 

my $itemSeq = $oDeal->f etchColumn ( 1 ITEM_SEQ r ) ; 

my $oItem - XDrive: : DatabaseO: : Table :: Item->new (undef , $oDBH) ; 

$o!tem->loadWhere ( 1 SEQ 1 , $itemSeq) ; 
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my $description * $oItem->f etchColumn { 1 DESCRIPTION ' ) ; 

$items . = ? <input type= rT checkbox" name=" 1 . $itemName . f ">' . 
$description . 1 <BR> T ; 
} 

if ($items eq 1 ' ) 
{ 

my $sError = $oErr->ReturnMessageGivenCode ( 1302) ; 

XDErrorToBrowser ( 1 removespace_noitems . thtml 1 , $sErrcr, 1, $oToken) ; 

} 

return $items; 



N 
W 

m 



iH 

ril 
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###selected_deletexgi 



# ! /usr/bin/perl 

# Written by Martin Hald <mhald@geotribe . com> for renaming files from the 

# web. 



use strict; 

use lib ($ENV{PERL_XDRIVE_LIB} ) ; 
use CGI; 

use CGI:: Carp qw ( f atalsToBrowser } ; 
use XDrive::CGI qw(:MAIN); 
use XDrive: : Client : :Actions; 
use XDrive: : Client :: Security; 

use XDrive :: Error; 
use XDrive: : DatabaseO; 

exit &main; 



M sub main 
{ 

my $oCGI = new CGI; 



my $oErr = new XDrive :: Error; 
my $oDBO = new XDrive :: DatabaseO; 

#### 

## Attempt to autenticate the user 
#### 

my $oToken = xd_security_check ($oDBO, $oCGI, $oErr ) ; 



## If an error occured or the user could not be validated then 

## redirect to the error CGI and exit 

#### 



if ($oErr->Occurud) 

{ 

xd_fatal_error ($oCGI, $oErr) ; 

exit; 

} 

#### 

## Otherwise we know that we have a valid session 
#### 



my $oAction = new XDrive : :Client :: Actions 
( 

$oToken, 

$oCGI 

); 

$oAction->FileCheck ($oAction->ItemCurrent ( ) ) ; 
$oAction->ItemDelete ($oAction->ItemCurrent () ) ; 
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xd_web Jsuttonindex ( $oCGI ) ; 
$oAction->DisconnectDB ( ) ; 

return 0; 
} 
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###selected_rename.cgi 



# ! /usr/bin/perl 

# Written by Martin Hald <mhald@geo tribe . com> for renaming files from the 

# web. 

use strict; 

use lib ($ENV{PERL_XDRIVE_LIB} ) ; 
use CGI; 

use CGI:: Carp 1 f atalsToBrowser 1 ; 
use XDrive::CGI qw(:MAIN); 
use XDrive: : Client :: Actions; 
use XDrive: : Client :: Security; 

use XDrive: : Library; 
use XDrive: : DatabaseO; 
use XDrive: : Error; 

## Clean up the path 
$ENV{ 1 PATH 1 } = ' /bin' ; 

delete @ENV{qw(IFS CDPATH ENV BASH_ENV) } ; # Make %EW safer 



yj exit &main; 



sub main { 

my $oCGI = new CGI; 
yi my $oErr = new XDrive: : Error; 

9 my $oDBO = new XDrive :: DatabaseO; 

C3 

ru #### 

h& ## Attempt to autenticate the user 

U #### 



my $oToken = xd_security__check ($oDBO, ScCGI , $oErr ) ; 
#### 

## If the autentication fails or there is an error during the 

## autentication phase then redirect to the error CGI 

#### 



if ($oErr->Occurud) 
{ 

xd_fatal_error ($oCGI,$oErr) ; 

exit; 

} 

#### 

## Otherwise we have a valid session 
#### 

my $oAction = new XDrive :: Client :: Actions 
( 

$oToken, 
$oCGI 
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my $sltem01d = $oAction->ItemCurrent ( ) ; 



## Get the relative path to the item to be renamed from the 
## old item name itself. 

my ($sFolder) = $sltem01d =~ / ! . +\/) [ A \/l +/ ; 
## Set the new item to be in that folder. 

my $sItemNew = $sFolder . $oAction->ItemNew ( ) . $oAction->ItemExtension ( } ; 

$oAction->FileCheck($sItem01d) ; 

$oAction->ItemRename ($sltem01d r $sItemNew) ; 

xd_web_buttonindex ($oCGI) ; 
$oAction->DisconnectDB{) ; 

} 
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###settings_save.cgi 



# ! /usr/bin/perl 

use strict; 

use vars qw(@ISA); 

use lib ($ENV{PERL_XDRIVE_LIB) } ; 

use CGI; 

use CGI:: Carp qw ( f atalsToBrowser ) ; 

use Data: : Dumper; 

use XDrive: : Library; 

use XDrive: :CGI; 

use XDrive: :Client: :Quota; 

use XDrive: : Client :: Security; 

use XDrive: : CGI :: Cookie; 

use XDrive: :DatabaseO: : Table: : UserSettings; 
y> use XDrive : : Dat abaseO : : Table : : Language ; 

use XDrive :: DatabaseO; 
52 use XDrive: : Error; 
^ use XDrive: : Template; 

W 8ISA « qw (XDrive :: CGI) ; 



## Attempt to autenticate the user 
#### 

my $oToken = xd_security_check ($oDBO, $oCGI , $oErr } ; 
#### 

## If the autentication fails or there is an error during the 

## autentication phase then redirect to the error CGI 

#### 

if ($oErr->Occurud) 
{ 

xd_fatal_error($oCGI,$oErr) ; 

exit ; 

} 

#### 

## Otherwise we have a valid session 
#### 

my $oCookie = XDrive : : CGI : : Cookie->new ( 1 x_session__inf o 1 , $oCGI); 
my $sUser = $oToken->data ( 1 user 1 ) ; 
my $nUser = UserldGet ($sUser) ; 



exit &main; 



sub main { 




my $oCGI - CGI->new(); 

my $oDBO = new XDrive :: DatabaseO; 

my $oErr = new XDrive :: Error ; 



#### 
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my $oUserSettings = XDrive :: DatabaseO :: Table :: UserSettings->new (uncef, 
undef ) ; 

## Initialize global variables 

my $g_bFileExtEdit - $oCGI->param ( 'bFileExtEdit 1 ) eq 'on' ? 1 : 0; 
my $g_bExtraHelp = $oCGI->param ( 'bExtraHelp ' ) eq 'on 1 ? 1 : 0; 
my $g_bMarketing = $oCGI->param ( 'bMarketing ' ) eq 'on' ? 1 : 0; 
my $gJoNewsletter = $oCGI->param ( ' bNewsletter T ) eq 'on' ? 1 : 0; 
my $g_bLanguage = $oCGI->param ( 'bLanguage 1 ) ; 
my $sCurrentLanguage; 

my $languageCode; 

if (defined $g_bLanguage) 
{ 

my $oLanguage = XDrive :: DatabaseO :: Table :: Language->new 

(undef, $oUserSettings->f etchDBO ( ) ) ; 
$oLanguage->loadWhere ("CODE", $g_bLanguage) ; 
SlanguageCode = $oLanguage->fetchColumn ( "SEQ") ; 
} 

## We are doing this in a backwards way — first we will try and load the 
## current users profile. If that works then we change it and update it 
## by calling save. If that does not work then we just call save. 

$oUserSettings->loadWhere ( "USER_SEQ M , $nUser) ; 

$oUserSettings->setColumn("FILE_EXT_EDITABLE", $g_bFileExtEdit ) ; 
$oUserSettings->setColumn("EXTRA_HELP", $g_bExtraHelp) ; 
$oUserSettings->setColumn ( "OPT_MARKETING" , $g_bMarketing) ; 
$oUserSettings->setColumn ( "OPT_NEWSLETTER" , $g_bNewsletter ) ; 

## The language element is an OPTIONAL setting in the "My Profile" area. 
## If it is passed then set it, otherwise leave the current value, 
if (defined $g_bLanguage) 
{ 

$sCurrentLanguage = $g_bLanguage; 

$oUserSettings->setColumn( "LANGUAGE", $languageCode) ; 

} 

else 

{ 

$sCurrentLanguage = "english"; 

} 

my $status = $oUserSettings->update ( ) ; 

if ($status < 0) 

{ 

$oUserSettings->rollback ( ) / 

my $sMessage = $oErr->ReturnMessageGivenCode ( 1330 ) ; 
XDErrorToBrowser (undef , $sMessage, undef, $oToken) 

} 

else 

{ 

$oUserSettings->commit ( ) ; 
if (defined $g_bLanguage) 
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{ 

##set the cookie for language 
$oCookie->setEIement 
({ 

'language* => $g_bLanguage 
} ) ; 

print "Set-Cookie: ", $oCookie->asString ( ) ; 
} 

} 

## Redirect the browser to the succesfull save page. 

### Edited by Justin so that we get the partner_code out 
### of cookie instead of the token table. 

# print xd_web_redirect 

# ( 

# n /account /prof ile/$sCurrentLanguage/ saved -html", 

# $oToken->data ( 1 partner_code ' ) 

# ); 

print xd_webjredirect 
( 

" /account /prof ile/$sCurrent Language /saved. html " 
$oCookie->getElement ( 'partner 1 } 

); 

$oUserSettings->f inish ( ) ; 
$oUserSettings->disconnect () ; 
$oDBO->disconnect { ) ; 
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###share_a_file.cgi 

# ! /usr/bin/perl 

use lib ($ENV{PERL_XDRIVE__LIB}) ; 

use XDrive: : Client :: Quota; 

use Math: : TrulyRandom; 

use XDrive :: DatabaseO; 

use XDrive :: DatabaseO: : Search; 

use XDrive: : DatabaseO: : Transaction; 

use XDrive: :DatabaseO: :Table: :UserData; 

use XDrive: :Utils: : Randoms t ring; 

use XDrive: :CGI; 



m.. 



use Mail : : Sendmail; 

use CGI:: Carp qw ( f atalsToBrowser ) ; 

use CGI; 

use XDrive: : Template; 

use XDrive: : Client :: Security; 

use XDrive: : Error; 

use XDrive: : Library; 

use XDrive: : CGI: : Cookie; 

use strict; 

&main ( } ; 



P| sub main { 

my $cgi = CGI->new(); 

my $oErr = new XDrive :: Error ; 

my $xdDBH = XDrive :: DatabaseO->new () ; 



my $oCookie = new XDrive : : CGI : : Cookie ( ' x_session_info 1 , $cgi) ; 
MM 

## Attempt to autenticate rhe user 
#### 



my $oToken = xd_security_check ($xdDBH, $cgi, $oErr ) ; 
#### 

## If the autentication fails or there is an error during the 

## autentication phase then redirect to the error CGI 

#### 



if ($oErr->Occurud) { 

xd_fatal_error ($cgi, $oErr) ; 
$xdDBH->disconnect ( ) ; 
exit; 

} 

#### 

## Otherwise we have a valid session 
#### 
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### Edited by Justin so that the partner_code is looked for 
### in the cookie instead of the token table. 
# my $sPartner = $oToken->data ( 1 partner_code ' ) ; 
my $sPartner = $oCookie->getElement ( 'partner 1 ) ; 
my $nUser_ID = UserldGet {$oToken->data ( 1 user ' ) ) ; 

## Grab the user info from the Database 

my $oUserInfo - XDrive :: DatabaseO :: Table :: UserData->new : { } , $xdDBH) ; 

my $sFileName = $cgi->param("sFileName") ; 
my $bHelp = $cgi->param ( "help" ) ; 

my $sFriendsEmail = &get_f riends_emails ($cgi ) ; 

my $sEmailSubject >= $cgi->param ( » sEmailSubj ect ' ) ; 

my $sEmailMessage = $cgi->param ( "sEmailMessage" ) ; 

my $sFileDescription = $cgi->param { "sFileDescription" ) ; 

my ($sRandomKey, SsFilePath) ; 

## Load user info where the SEQ = $nUser_ID 
$oUserInf o->loadWhere ( "SEQ" , $nUser_ID) ; 

my $sUser_name = $oUser!nf o->f etchColumn ( "NAME^FIRST" ) . " " . $oUserInfo 
>f etchColumn ( "NAME_LAST" ) ; 

my $sUser__email = $oUserInfo->f etchColumn ( "EMAIL_ADDRESS" ) ; 

if ($sFriendsEmail) 
{ 

$sFilePath-"/"; 

$sFileName — m% {.*)/(.*) %; 

#inserted this code to catch documents that are net in a folder 
my $tempFilePath = "/" . $1; 
my $ temp Filename = $2; 

if ($tempFileName ne "") 
{ 

$sFileName=$tempFileName; 
$sFilePath=$tempFilePath; 
} 

5tverify_database_values ($nUser_ID, $sFileName, $s?ilePa~h, 
$sFilePath, SsFileName, 
$sFileDescription, $oToken, $oErr) ; 

## Insert the info into the disk_item_share table, and get the 

random key 

$sRandomKey « &insert_f ile_into_database {$nUser_ID, $sFileName, 
$sFilePath, $sFileDescription / $xdDBH, $oToken, $oErr) ; 

&send_mail($sFriendsEmail / $sEmailSubject , $sEmailMessage, $sFileDescription, 
$sUser_name, $sUser_email, $nUser__ID, $sRandomKey / $sPartner, $oToken, $oErr, $cgi) 

&display_thank_you($sPartner) ; 
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} 

else { 

$oUserInf o->f inish { ) ; 
$xdDBH->disconnect () ; 

&display_form($sFileName, $bHelp, $sPartner) ; 

} 

$oUserInfo->f inish ( ) ; 
$oUserInf o->disconnect { ) ; 

} 

sub send_mail { 

my ($sFriendsEmail, $sEmailSubject , $sEmailMessage, $sFileDescription, 
$sUser_name, $sUser_email, $nUser_ID, $sRandomKey, 
$sPartner, $oToken, $oErr,$oCGI) = 

##get language from the cookie. If not english, append language code tc 

url 

my $oCookie = new XDrive : : CGI : : Cookie ( 1 x_session_inf o ' , $oCGI); 
my $language = $oCookie->getElement ( ' language ' ) ; 
if ($language ne 'english 1 ) 
{ 

if ($language eq 'Spanish') 
{ 

$sRandomKey .= "-SP" ; 

} 

} 

$sEmailMessage = &get_message ($sEmailMessage, 
$sRandomKey / $sPartner, $nUser_ID) ; 

my %toXdrive - 
( 

To => ff $sFriendsEmail", 

From => "$sUser_name <$sUser_email>" , 

Message => $sEmailMessage / 

Subject => "$sEmailSubject " , 

); 

unless (sendmail %toXdrive) 
{ 

warn "## Mail error " . $Mail :: Sendmail :: error; 
if ($Mail: : Sendmail: : error =~ /451/) 
{ 

my $sMessage = $oErr->ReturnMessageGivenCode (1310) ; 
XDErrorToBrowser ("", $sMessage, undef , $oToken) ; 

else 

{ 

my $sMessage = $oErr->ReturnMessageGivenCode ( 1311 ) ; 

XDErrorToBrowser ("", $sMessage, undef , $oToken) ; 

} 

exit (1) ; 
} 

} 

sub get_message { 
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my ($sEmailMessage, $sRandomKey, $sPartner, $n_UserID) = @_; 

my $oMessage = new XDrive: : Template; 
$oMessage->partner ($sPartner) ; 

$oMessage->load ( 1 share__a_f ile message . thtml T ) ; 

$oMessage~>tags 
({ 

Message 1 => $sEmailMessage, 
1 RandomKey 1 =>$sRandomKey, 

'nUser_ID' «>$n_UserID, 
'sender 1 =>$ENV { 1 HTTP_HOST 1 } , 

} ) / 

return $oMessage->get ; 



sub display_form { 

my ($sFileName, $bHelp, $sPartner ) = @_; 
my $oForm - new XDrive :: Template; 
$oForm->partner ($sPartner) ; 
$oForm->load ( f share_a_f ile . thtml ' ) ; 

my $sHelp=' 1 ; 

if ($bHelp eq 'true 1 ) 
{ 

my $oHelp = new XDrive :: Template; 
$oHelp->partner ($sPartner) ; 
$oHelp->load ( ' share_a_f ile_help . thtml 1 ) ; 
$sHelp = $oHelp->get; 
} 

$oForm->tags 
({ 

'sFileName' => $sFileName, 
'helptext' => $sHelp 
}); 

print header, $oForm->get; 
exit (0) ; 



sub display_thank_you { 
my $sPartner = shift; 
my $oForm = new XDrive :: Template; 
$oForm->partner ($sPartner) ; 

$oForm->load( 1 share_a_f ile t_y. thtml 1 ) ; 

print header, $oForm->get; 
exit (0) ; 



sub verify_database_values { 

my ($nUser_ID, $sFileName, $sFilePath, $sFilePath, $sFileName, 
$sDescription, $oToken, $oErr) = @_; 
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if (length ($sDescription) > 255) { 

my $sMessage = $oErr->ReturnMessageGivenCode { 1320) ; 
XDErrorToBrowser ("", $sMessage, undef , $oToken) ; 

} 

if (length ($sFilePath) > 255) { 

my $sMessage = $oErr->ReturnMessageGivenCode ( 1321) ; 
XDErrorToBrowser ("" , $sMessage, undef f $oToken) ; 

} 

if (length ($sFileName) > 255) { 

my $sMessage = $oErr->ReturnMessageGivenCode ( 1322 ) ; 
XDErrorToBrowser ("", $sMessage, undef , $oToken) ; 

} 

} 



sub insert_f ile_inro_database { 

my ($nUser_ID, $sFileName, $sFilePath, $sFileDescription, 
$xdDBH, $oToken, $oErr) = @_; 

my ^characters - ( ' a 1 . . 1 z ' , ■ A f . . 1 Z 1 , ' 0 1 . . T 9 1 ) ; 

##seed random number generator 

srand ( truly_random_value ( ) ) ; 

my $gmTime = time; 

##grab length of time 

my $randLen = 32 - length ( $gmTime) ; 

my $sRandomKey = XDRandomString ( $randLen, \@characters ) ; 

##now we have a Random key 

$sRandomKey = $gmTime . $sRandomKey; 

## at this point we have a random number 

## of length gmTime with the current gmt time appended to it 



my $transaction = XDrive: : DatabaseO: :Transaction->new($xdDBH) ; 
my $status = $transaction->insertDiskItemShare ($nUser_ID, $sRandomKey r 
$sFilePath, $sFileName, $sFileDescription) ; 

if ($status < 0) 
{ 

$transaction->rollback ( ) ; 

my $sMessage = $oErr->ReturnMessageGivenCode (1323) ; 
XDErrorToBrowser ( , $sMessage, undef, $oToken) ; 
exit (1) ; 

} 

else 
{ 

$transaction->commit ( ) ; 

} 

return $sRandomKey; 

} 
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sub get_friends_emails { 
my $cgi = shift; 
my ($email_list, @email_array) ; 

if (length $cgi->param ( f sFriendsEmailO ' ) > 0) 
{ 

push (@email_array, $cgi->param( 1 sFriendsEmailO • } ) ; 
} 

if (length $cgi->param ( 1 sFriendsEmailO 1 ) > 0) 

{ 

push(@email_array, $cgi->param ( ' sFriendsEmaill 1 ) ) ; 
} 

if (length $cgi->param( ' sFriendsEmailO 1 ) > 0) 

{ 

push(@email_array, $cgi->param( 1 sFriendsEmail2 1 ) ) ; 

} 

if (length $cgi->param (' sFriendsEmailO 1 ) > 0) 
{ 

push (@email_array, $cgi->param( f sFriendsEmail3 1 } ) ; 
} 



Sj if (length $cgi->param { 1 sFriendsEmailO 1 ) > 0) 

yj { 

\A push(@email array, $cgi->param( 1 sFriendsEmail4 1 ) ) ; 

J! } 



$email_list = join(",", @email_array) ; 



Hi return $email list; 
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###signup_account.cgi 



# 1 /usr/bin/perl 

## -d:DProf 

## -d:SmallProf 

## Written by Martin Hald <mhald@uci . edu> on Wed Apr 7 1999. This program 
## adds new users to the database. 

## Modified by Justin White for cookie referee and promo stuff and to make 
## mod__perl friendly and to work with changes to the Security module and 
## to get rid of the XDrive::CGI module and to create a CGI object. 

use strict; 

use lib ($ENV{PERL_XDRIVE_LIB}) ; 
CGI; 

CGI:: Carp qw { f atalsToBrowser ) ; 
XDrive: : Client: : Registration; 
XDrive: : Error; 
XDrive: : Client: : Security; 
XDrive: : Template; 

XDrive: :DatabaseO: : Table: : User Data; 
XDrive: :DatabaseO: : Transaction; 
XDrive: :DatabaseO: : Table: :UserQuota; 
XDrive: :DatabaseO: : Table: : Promo; 
XDrive: :DatabaseO: : Table: : DiskAccount ; 
XDrive: :DatabaseO: : Table: : Reseller; 
XDrive: : Template; 
XDrive: :DatabaseO: : Search; 
XDrive : : CGI : : Cookie ; 
XDrive: : Library; 
Mail: :Sendmail; 

CGI qw(param redirect header cookie); 

BEGIN 
{ 

push (@INC, "/export/home/www/thirdparty/mint2/perl") ; 

} 

use Mint2; 

&main; 

exit; 

sub main { 

my $oCGI = new CGI; 

my $oCookie - XDrive :: CGI :: Cookie->new ( 1 x_session_info 1 , $oCGI); 
my $oSTDCookie = XDrive: : CGI: :Cookie->new( 1 xd_std_info 1 , $oCGI); 

my $file_found; 

### Use the new XDrive :: CGI :: Cookie now. 

my $promo_uri = $oCookie->getElement ( 'promo 1 } ; 

my $ref_seq_cookie = $oCookie->getElement { 1 referee 1 ) ; 

my $referred_from = $oCookie->getElement ( 1 ref ered_f rom 1 ) ; 



use 
use 
use 
use 

. :; use 

M use 
use 
use 



use 



M use 
Si use 



use 
use 
use 
use 
use 
use 
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my $claim_ticket = $oCookie~>getElement ( T ct ' ) ; 



my $ref_seq_param = $oCGI- 

my $password = $oCGI- 

my $password_conf irm = $oCGI- 

my $birth_year = $oCGI- 

my $username = $oCGI- 

my $name_first = $oCGI- 

my $name_last = $oCGI- 

my $email_address = $oCGI- 

my $country_seq = $oCGI 

my $gender_seq = $oCGI 

my $postal_code - $oCGI 

my $occupation__seq = $oCGI 

my $referee = $oCGI 

my $marketing = $oCGI 

my $newsletter = $oCGI 

my $media_type_seq = $oCGI 



■>param( 1 referee' ) ; 
■>param( "password 1 ) ; 
->param( f pass wo rd_con firm' ) ; 
->param( 1 birth_j/ear " } ; 
->param ( ' username ' ) ; 
->param ( 1 name_f irst 1 ) ; 
->param ( 1 name_last ' } ; 
->param( 1 email_address 1 ) ; 
->param( 1 country" ) ; 
->param( 'gender 1 ) ; 
->param( 1 zip2 * ) ; 
->param( "occupation 1 ) ; 
->param ( 1 referee 1 ) ; 
->param( "marketing" } ; 
->param( "newsletter" ) ; 
->param( "media_type 1 ; ; 



u ## p ARAMS TO GATHER IF THIS IS CALLED FROM SKIP 

m ## THE DOWNLOAD 

55 my $sSTDPartner = $oSTDCookie->getElement ( 1 STDPART^ER 1 

my $sLanguage = $oSTDCookie->getElement ( 1 LANG 1 ) ; 

y\ my $sFileURL = $oSTDCookie->getElement ( 1 FILEURL" } ; 

W my $sFileName = $oSTDCookie->getElement ( ' FILENAME " ) ; 

S| my $sAltURL = $oSTDCookie->getElement ( ' ALTURL ' ] ; 

S\ my $sCatId = $oSTDCookie->getElement ( 1 CATID 1 ) ; 

ijj my $sGid = $oSTDCookie->getElement ( "GID" } ; 

my $sSid = $oSTDCookie->getElement ( ' SID" } ; 



## check if database is up 
my $oDBO; 
my $oSearch; 

if (XDDBConnectionCheckO && XDNFSCheck { ) ) 
{ 

## connection good proceed normally 
$oDBO = new XDrive :: DatabaseO (undef ) ; 

$oSearch = XDrive :: DatabaseO: : Search->new ($o^30) ; 

} 

else 
{ 

## connection bad write data to a temp file and load 
## upgrading page telling them that they will be 
## informed once X: drive is up 
$oDBO = undef; 
$oSearch = undef; 
my $tempVar; 



H4 



my $tempEmail = $oCGI->param ( ' f riends_emaili ' } ; 
my $numFriends = $oCGI->param ( "numFriends ' } ; 



my $addrArray » $tempEmail; 

my $nameArray - $oCGI->param ( ' f riends_namel 1 } ; 
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## generate list for the javascript array 
for (my Si = 2;$i <- $numFriends; $i++) 

$tempVar = $oCGI->param ( ' f riends_en:ail ' . $i) ; 

if ($tempVar) 
{ 

$addrArray .= . $tempVar; 

$nameArray .= B ~" - $oCGI->param ( ' f riends_name ' . $i) ; 

} 

} 

reg_while_down ( 

$promo_uri, 

$ref _seq_cookie , 

$ref erred_from, 

$claim__ticket, 

$ref_seq_param, 

$password, 

$birth__year, 

$username, 

$name_f irst, 

$name__last , 

$emaii__address, 

$country_seq, 

$gender_seq, 

$postal_code f 

$occupation_seq, 

$referee, 

$marketing, 

$newsletter, 

$me di a__t ype_s e q , 

$nameArray / 

$addr Array 

); 

## leave and show upgrading page test me 

print redirect ( "/upgrading__signup_success . html") ; 

exit; 



} 

##my $oDBO = new XDrive : : DatabaseO (undef ) ; 

##my $oSearch = XDrive :: DatabaseO :: Search->new ($oDBO) ; 

###### 

### If media_type_seq equals 'notset', then set it to NULL. 
###### 

$media_type_seq = 1 ! if $media_type_seq eq 'notset'; 

my $partner_code - ' xdrv 1 ; 
my $partner_seq = 1; 

my $promo_seq; 

###### 

### Check to see how the referee sequence, if any, was passed in. 
### If it was passed in via cookie, then use that. Else, assume 
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### that it is a form parameter. 
###### 

my $ref_seq = $ref_seq_cookie ? $ref_seq_cookie : $ref_seq_param; 
###### 

### If we were passed a promo uri, then let's get the promo seq 
### from promo table using Promo. pm to pass to xd_client_register . 
###### 

if ($promo_uri) { 

my $oPromoInfo = XDrive :: DatabaseO :: Table :: Promo->new (undef, $c3B0) ; 
$oPromoInf o->loadWhere ( ' URI 1 , $promo_uri } ; 
$promo_seq = $oPromoInf o->f etchColumn ( ' SEQ ' ) ; 

$oPromoInf o->f inish { ) ; 

} 



###### 

### Load the required template HTML files. The content that we loac 
depends 

### on if the new registration went through or if we need to have them re- 

<4 fill 

^ ### the form. 

-\ ###### 

J/1 my $oContent = new XDrive :: Template { { ' partner_code ' => f xdrv r } ) 

'! my $oLayout = new XDrive :: Template ( { ' partner_code ' => ' xdrv 1 } ) 

my $oNavigation = new XDrive :: Template ( { 1 partner_code ' => 'xdrv'} ) 



my $oErr = new XDrive :: Error; 

$oContent->load ( ' f ront__signup . thtml ' ) ; 
g $oNavigat ion->load ( ' f ront_nav . thtml ' ) ; 

n \ $oLayout->load ( 1 layout . thtml ' ) ; 

; $ $ $ $ $ $ 

\2 ### Perform data validation 

g ###### 

Hs| if ($password ne $password_conf irm) { 

$oErr->AddErrorByErrorCode (709) ; 

} 



###### 

### Attempt to register the user if no errors have been logged 
###### 

if (! $oErr->Occurud ) { 

xd__client_register ( { 'birth_year' 



'partner_seq' => 

'username' => 

'password' => 

'name_first' => 

T name_last' => 

' email_address ' => 

1 country_seq r => 

'gender 1 => 

'postal_code ' => 

? occupation__seq ' => 

'referee' => 



=> $birth_year, 
$partner__seq, 
$username, 

XDEncrypt ($password) 
$name_f irst, 
$name_last , 
$email_address , 
$ count ry_seq, 
$gender_seq, 
$postal_code, 
$occupation_seq f 
$ref_seq, 
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'marketing 1 => $marketing, 

'newsletter 1 => $newsletter, 

f partner_code ' => $partner__code, 

'promo_seq' => $promo_seq, 

'media_type_seq' => $media_type_seq} , 

$oCGI, $oErr r $oDBO ) ; 
} 

if ($oErr->MaxIndex() < 0) { 

## No errors occured, the user has already been added to the 
## database through the xd_client_register subroutine so now 
## send the user an email and then 
## log the user and go to the user's homepage. 

client_email__send ($username / 

$name_f irst, 

$name_last, 

$email_address, 

1 X\: drive Team <team@xdrive.com> 1 , 
'Welcome to X: drive! - Important Account 

Information' , 

$partner_code, 
$promo_seq) ; 

###### 

### If we have a claim ticket, then remove that ticket 
### from the batch_user_data table because the user has 
### been added and we don't need that data anymore. 

###### 
if ($claim_ticket ) { 

my $oTransaction = XDrive: : DatabaseO: : Transaction- 

>new($oDB0) ; 

my $rv = $oTransaction->removeClaimTicket ($claim_ticket ) ; 

if ($rv == 1) { 

$oTransaction->commit ( ) ; 

} 

else { 

$oTransaction->rollback() ; 

} 

} 

##if we have a referee seq, give the referee additional space 
if ($ref_seq >= 1} { 

## johngaa add to exclude college club and quepasa users our 
my $oUserData = XDrive :: DatabaseO :: Table :: UserData- 

>new (undef , $oDB0) ; 

$oUserData->loadWhere ( "SEQ" , $ref_seq) ; 

my $reseller_seq = $oUserData->f etchColumn { "RESELLER_SEQ" ) ; 

if ( ! (isResellerSeqCC_QUPA($oDBO, $reseller_seq) ) ) 

{ 

## end of johngaa 



d:\my documents\x-drive\a]l cgi fUes. toc.aj.doc 



103 of 148 



my $oUserQuota = XDrive :: DatabaseO :: Table :: UserQuota- 

>new(undef, $oDBO) ; 

$oUserQuota->ioadWhere { "USER_SEQ" , $ref_seq; ; 

my $additional_quota = $oUserQuota->incremer.~Quota ($ref_seq, 

5120) ; 

if ($additional_quota > 0) { 

&send_email_ref eree ($ref__seq, $oDBO, $oCookie, $additional_quota, $ref erred_f rom) ; 
} 

$oUserQuota->finish() ; 

} 

} 

##if the user is from Cybergold, process through Cybergold 
if ($promo_uri=~/cybergold/) { 
my ($code, %res) = 
&contact_cybergold($oCGI,$username f $email_address) ; 

} 

##if user is coming from the befree promo 
##write to file that they've signed up 
if ($promo_uri /befree/) { 

&write_befree_log($oCGI) ; 

} 

if ($sFileURL eq ' ' ) { 

client_login ($username, $oCGI) ; 

} else { 

std_login ($username, 
$oCGI, 

$sSTDPartner, 

$sLanguage, 

$sFileURL, 

$sFileName, 

$sAltURL, 

$sCatId, 

$sGid, 

$sSid); 

} 

$oSearch->disconnect ( ) ; 
exit; 

} 

else { 

## Reload the signup form, show the errors and pre-fill all 
## the form elements except the password. 

##if we are overriding standard registration for?. 
##load it here 
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if ($promo__uri) 

{ 

$file_found = $oContent->load ($promo_uri . 

^registration. thtml 1 ) ; 

if ( !$file_found) 

{ 

$file_found - $oContent- 
>load ( ' promo_registrat ion . thtml ' ) ; 

} 

} 



? ??? 



if ( ( !$promo_uri) || ( ! $f ile_f ound) ) 
{ 

$oLayout->load ( "layout . thtml" ) ; 
$oNavigat ion->load ( " f ront_nav . thtml " ) ; 
$oContent->load ( "f ront_signup . thtml" ) ; 

} 

my ($select_marketing, $select_newsletter) ; 

my $checked = "CHECKED"; 

if ($marketing eq 'on 1 ) { 

$select_marketing = $checked; 

} 

if ($newsletter eq 'on') { 

$select__newsletter = $checked; 

} 

## IMPORTANT ## 

## make sure to put all non text fields at the top of 
## the tags function or it will gag 



U ## Search and replace the following tags 

Q $oContent->tags ( { ' country 1 => 
m xd_form_countries ($country_seq, $oSearch) , 

' 'occupation 1 => 
xd__f orm_occupation ( $occupation_seq, $oSearch) , 

! media_type' => 
xd_form_media_type ($media_type_seq, $oSearch) , 

' gender 1 => 
xd_f orm_gender ($gender_seq, $oSearch) , 

■ selectjnarketing* => $select_marketing / 

' select_newsietter 1 => $select_newsletter, 

•errors' => f ormat_errors ( $oErr ) , 

'username' => $username, 

! name_first' => $name_first, 

! name_last' => $name_last, , 

'email__address' => $email_address f 

r birth_year f => $birth__year, 

1 postal_code* => $postal__code } ); 



## 

## Added to have tell a friend support in registration 
## 
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my (QaddrArray, gnameArray, $templndex, $tempName, $tempEmail / 

$tempNum) ; 

## tell a friend data will be coming in to signup_form 
## seperated by commas 

@addrArray = split /, /, $oCGI->param ( ' f riends_emaii_array ' ) ; 
QnameArray = split /, /, $oCGI->param ( ' f riends_name_array ' ) ; 

$tempNum = $oCGI->param ( 1 numFriends ' ) ; 

for (my $templndex=l; $templndex <= $teiupNum; $ tempi ndex++) { 
$tempName = 1 f riends_name r . $templndex; 
$tempEmail = ' f riends_email ' . $templndex; 

$oContent->tags ( {$tempName => $oCGI->param ( $ tempName) , 
$tempEmaii => $oCGI->param ( $tempEmail ) } 

} 

^ ## Clear the content of any unused tags. 

$oContent->clear; 

S } 

^ ##if we are loading a non-standard registration, it's only one page 

UJ if (($promouri) && ($f ile_f ound) ) 

H { 

\! print $oCGI->header { ) , $oContent->get ; 

III } 

••• else 

Q { 

## Print out the HTML and exit 
P? $oLayout->tags ( { 1 headerjgraphic' => ' header_registration. gif ' , 

pa - 'title 1 => 'Register Nov; ! ' , 

^ 'content 1 => $oContent->ge~ , 

C5 'navigation 1 => $oNavigation->get } ); 

m 

print $oCGI->header () , $oLayout->get ; 

} 

$oSearch->disconnect ( ) ; 
return 0; 



sub isResellerSeqCC_QUPA 
{ 

my $oDBO = shift; 

my $reseller_seq = shift; 

my $dbh - $oDBO->f etchDBH ( ) ; 

my $sql_stmt - "SELECT code FROM reseller WHERE seq=? ,T ; 
my $cmd; 
my @data; 

$cmd = $dbh->prepare ($sql_stmt) ; 
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$cmd->execute { ($reseller_seq) ) ; 

Gdata = $cmd->fetchrow_array; 

if ($data[0] eq 'cc* || $data[0] eq 'qupa') 

{ 

return 1; 

##print "should return a true\n" 

} 

return 0; 



#######################################4##################################### 
## reg_whi letdown: Grabs all data that is needed to register a user 
## routine will add the data to a file in the tmp directory of the name 
## reg_while_down.datetime 

############################################################################# 

sub reg__while_down 

{ 

my ($promo_uri, $ref_seq__cookie, $ref erred_f rom, $claim_t icket , 

$ref_seq_param, $password, $birth_year, $username, $name_f irst , 
$name_last, $email_address, $country_seq, $gender_seq, $postal_code, 
$occupation_seq, $ref eree, $marketing, $newsletter, $media_type_seq, 
$tell_a_f riend_name, $tell__a_friend__addr) = (§_; 

my $filename = XDGetRegDatFile ( ) ; 
open OUTFILE, "»$f ilename"; 

print OUTFILE n $promo_uri, $ref_seq_cookie, $referred_f rom, "; 
print OUTFILE "$claim__t icket , $ref_seq_param, $password, "; 
print OUTFILE "$birth_year , $username, $name_f irst , "; 
print OUTFILE "$name_last , $email_address, $country_seq, " ; 
print OUTFILE "$gender_seq, $postal_code, $occupation_seq, " ; 
print OUTFILE "$referee, $marketing, $newsletter, $media_type_seq, "; 
print OUTFILE "$tell_a_f riend__name, $tell_a_f riend_addr\n" ; 
close OUTFILE; 

} 

############################################################################# 
## f ormat_errors : Accept an error object and return an ordered list of 
## errors in HTML format. 

############################################################################# 

sub f ormat_errors { 

my $oErr = shift; ## (I) errors 

my $txt; ## formated HTML 

my $bPassword; ## has a password error been found? 
$txt .« "<ol>\n"; 

my $nNumErrors « $oErr->MaxIndex ( ) ; 

for (my $i = 0;$i <= $nNumErrors; $i++) { 
my $error = $oErr->Message ( } ; 

if ($error =~ /assword/J { 
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$bPassword = 1; 

} 

$txt .= "<lixfont color==RED>$error</font>\n"; 

} 

if { ! $bPassword) { 

$txt .« "<lixfont color=RED>Please re-enter your 
password</f ont>\n" ; 
} 

Stxt -= "</ol>\n"; 
return $txt; 

} 

## client_login: Create the needed -oken to identify the client and redirect 
## them to thier new homepage. 

########################################################################«### 
^ sub client_login ($$) { 

Q ## No errors occured, add the user to the parter/user->reai 

Q ## user mapping and return a success code. 

Ul my $username = shift; 

\j my $oCGI » shift; 

\. § 

^ my $oDBO = new XDrive : : DatabaseO (undef ) ; 

^ l my $oCookie = XDrive :: CGI :: Cookie->new ( ! x__session__inf o 1 , $oCGI); 

0 ###### 

ttj ### Check the x_session_inf o cookie for promo or referee and 

|:4 ### if they exist, delete those hash elements and reset the cookie. 

###### 

my $promo_cookie = $oCookie->getElement ( 'promo' ) ; 
■ M my $ref_cookie = $oCookie->getElement (' referee ') ; 

if ($ref_cookie | 1 $promo_cookie) { 

$oCookie->deleteElement ■ ' referee 1 ) if $ref_cookie; 
$oCookie->deleteElement { 'promo' ) if $promo_cookie; 

print "Set-Cookie: ", $oCookie->asString ( ) ; 

} 

my $oError = new XDrive :: Error ; 

my $oToken « xd_login ( $oCGI, Susername, $oError, $oDBO) ; 

## we need to do all of this zo get the reseller code to show the correct 

page 

my $oDiskAccount = XDrive :: DatabaseO :: Table :: DiskAccount->new (undef , 
$oDBO) ; 

$oDiskAccount->loadWhere ( "USERNAME" , $username) ; 
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my $oUser = XDrive :: DatabaseO: : Table :: UserData->new (undef, 
$oDiskAccount->fetchDBO) ; 

$oUser->loadWherePK($oDiskAccount->fetchColumn( n USER__SEQ") ) ; 

my $oReseller = XDrive :: DatabaseO: : Table :: Reseller->new (undef , 
$oDiskAccount->fetchDBO) ; 

$oReseller->loadWherePK ($oUser->f etchColumn { "RES£LLER_SEQ" ) ) ; 

my $oTemplate = new XDrive :: Template ; 

$oTemplate->partner($oReseller->f etchColumn ("CODE") ) ; 

## originally this is where the signup__f orni, cgi goes 
##$oTemplate~>ioad( 'splash. thtrnl' ) ; 
$oTemplate->load ( r tell_a_f riend_f rame . thtml 1 } ; 

##my $addrArray = $oCGI->param ( * f riends_email_array ' ) ; 
##my $nameArray = $oCGI->param ( 1 f riends_name_array 1 ) ; 
##my $numFriends = $oCGI->param { 1 numFriends 1 ) ; 

M 

CI ## generate list for the javascript array 

Q ##my @addrList = split /,/, $addrArray; 

\| ##my @nameList * split /,/, $nameArray; 



##$addr Array = ""; 
>,1 ##$nameArray - 

Ul ##my $count - QaddrList - 1; 

0 ##for (my $i - 0;$i < $count;$i++) { 

fill ##$addrArray "\ ,rM . $addrList [ $i ] . "\", ,T ; 

M ##$nameArray "\"" . $nameList [ $i] . "\","; 

h$S5 ^ } 

## this will add the quote without the comma 



##$addrArray .= n \"" . $addrList [$count ] . "V"; 

##$nameArray .= "\" ,r . $nameList [$count ] . "\""; 
## gets the array started 
my $tempVar; 

my $tempEmail = $oCGI->param ( 1 f riends_emaill 1 ) ; 
my $numFriends = $oCGI->param { 1 numFriends 1 ) ; 



my $addrArray = "\ ,,n . $tempEmail . "\""; 

my $nameArray = "\" n . $oCGI->param ( 1 f riends_namel ' ) . "\"»; 

## generate list for the javascript array 
for (my $i = 2;$i <= $ numFriends; $i++ ) 
{ 

$tempVar = $oCGI->param ( 1 f riends_email 1 . $i) ; 

if ($tempVar) 

{ 

$addrArray .= ",V ,rt . $tempVar . "\""; 
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$nameArray .= ",\" " • $oCGI->param ( ' f riends_name ' . $i) . »\""; 

} 

} 



$oTemplate->tags ( { 1 numFriends ' => $numFriends, 

1 f riends_name_array ' => $nameArray, 
f friends_email_array 1 => $addrArray} ); 



print $oCGI->header () ; 

print $oTemplate->get ( ) ; 

$oDiskAccount->f inish ( ) ; 
$oUser->finish{) ; 
$oReseller->f inish ( } ; 
$oDiskAccount->disconnect () ; 



Q ############################################################################# 
iS ## Login in user who is comming from a Skip The Download 
!i ## Registration 

############################################################################# 

w 

"^i sub std_login () { 
% 4 my $username = shift; 

\f\ my $oCGI = shift; 

$ my $sSTDPartner = shift; 

Pt my $s Language = shift; 

ff| my $sFileURL = shift; 

|J my $sFileName = shift; 

my $sAltURL = shift; 
jJJ my $sCatId = shift; 

y my $sGid = shift; 

fU my $sSid = shift; 

my $oDBO = new XDrive :: DatabaseO (undef) ; 

my $oError = new XDrive :: Error ; 

my $oToken = xd_login ($oCGI, $username, $oError, $oDBO) ; 
xd set session cookie ($oCGI, $sSTDPartner , $sLanguage) ; 



my $oTemplate = new XDrive :: Template 
({ 

'partner^code 1 => $sSTDPartner / 
1 language 1 => $sLanguage, 

' file ' => ? skip_the_download__f rom_reg . thtml 1 , 
1 tags' => 

{ 

1 FILE_URL' => $sFileURL, 

1 FILE_NAME 1 => $sFileName, 

1 ALTRUL 1 => $sAltURL, 

1 LANG 1 => $sLanguage, 

1 STDPARTNER* => $sSTDPartner , 
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■CATID' => $sCatId, 
1 GID ' => $sGid, 
'SID' => $sSid, 
} 

}); 

$oTeraplate->clear ( ) ; 

print "Content-type : text /html\n\n" ; 
print $oTemplate->get ( ) ; 
$oDBO->disconnecr { ) ; 



sub contact_cybergold { 
my $oCGI = shift; 
my $msgid = shift; 
my $email = shift; 

=> $ENV{ 'MINT_HOME' }, 
=> 1 background_mode ' , 

-> $email, 
=> $msgid, 

==> 'reward', 
=> '1.00', 

=> 'Thanks for registering with X: drive.', 

=> 'X Drive' , 

=> 'registration', 

=> '100500900000396', 

'mint secret' => ' 184FEB9DB81944502A1C91B2879484B6' , 

nj ~ 

H 'mint_url_j>ay' => 'http: //wwwl . cybergold . com/payserver?pay_server ' , 

M ! msg_version ' => '2.2' 

fjj 

my($code, Ires) = mint_JLnvoke ( \%args ) ; 

##this is temp code to print out stuff for cybergold 

##my @keys = keys %res; 

##my ©values = values %res; 

##while (@keys) 

##{ 

## die pop(@keys) , ' = ', pop ( Svalues ) , "\n"; 
##} 

return $code; 



sub write_bef ree_log { 

my $oCGI = shift; 

my $source_id = $oCGI->cookie ( ' sourceid' ) ; 
##get the time 

##needed to figure out name of file to write to 



my %args = ( 
'mint_home ' 
f msg_mode ' 

'usr_email ' 
'msg_id' 

'pay_type ' 
' pay_value 1 
1 pay_readme ' 

' co_name ' 

' co_key ' 

' co account' 
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my ($nSec, $nMin, $nHour, $nDay, $nMonth, $nYear, $sDay} = 
(localtime (time) ) [0,1,2,3,4,5,6] ; 

if ($nYear > 99) { 

$nYear = substr ( $nYear , 1, 2 ) ; 



## Numeric month is 0-11, so add one 
$nMonth++; 

## Handle Y2K issue 
if ( $nYear >= 80 ) { 

$nYear += 1900; 

} 

else { 

$nYear += 2000; 

} 

my $dToday = sprintf ( "%s%02d%02d" , $nYear, $nMonth, SnDay) ; 
my $dTodayFull = sprintf ( "%02d%02d%s 
I02d: %02d: %02d" , $nMonth, $nDay, $nYear, $nHour, $nMin, $nSec) ; 

my $text = 

"14524098\tS\t$dTodayFull\t$source_id\tl\tl\tl\t0. 00\tUSD\tregist ration \n 11 ; 

warn "#BF", $text, "\n"; 

##open(FILE, "»xdrive_orders_$dToday . txt" ) ; 
##print FILE $text; 



in ##close(FILE) ; 

T } 

y sub send_email_referee { 

\U my $user_seq = shift; 

H my $oDBO = shift; 

Ml my $oCookie = shift; 

Q my $additional_quota = shift; 

m my $ref erred from = shift; 

my $language = $oCookie->getElement ( 1 language 1 ) ; 
my $partner = $oCookie->getElement ( 'partner ') ; 

if ($language eq Spanish 1 ) { 

my $text = 'un amigo que usted refirio'; 
if ($referred_from eq '2') { 

$text = 'un usted compartio un fishero con'; 

> 

} 

else { 

my $text - 'referred 1 ; 

if ($referred_from eq '2') { 

$text = 'shared a file with'; 

} 

} 

my $text = 'referred 1 ; 

if ($referred_from eq f 2 f ) { 

$text - 'shared a file with'; 
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##comes in as k, change to megabytes 
my $mbs = $additional__quota/1024 ; 

my $oUserData = XDrive :: DatabaseO: : Table :: UserDara->new (undef, $oDBO) ; 
$oUserData->loadWhere("SEQ", $user_seq) ; 

my $email_address = $oUserData->f etchColumn ( "EMAILJUDDRESS" ) ; 
my $name_first = $oUserData->f etchColumn ( "NAME_F.?ST" } / 
my $name~last = $oUser Da t a- >f etchColumn ( "NAME_LAS7" ) ; 

my $oTemplate = new XDrive :: Template ( {'language' => $ianguage, 

'partner_code' => $partner} ); 

$oTemplate->load( T received_5MB_tellafriend. thcmi ' ; ; 

$oTemplate->tags ( {'mbs' => $mbs, 
f text' => $text} ) ; 
$oTemplate->clear { ) ; 

my $message = $oTemplate->get ; 

my %toXdrive = 
( 

To «> "$name_first $name_last <$emaii_aadress>" , 

Bcc => 1 ' , 

From => "support\@xdrive . com" , 

Message => $message, 

Subject => "Congratulations!" 

); 

sendmail (%toXdrive) ; 
$oUserData->f inish ( ) ; 

} 
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###signup_form.cgi 



# ! /usr/bin/perl 

## Written by Martin Hald <mhald@uci , edu> on Sat, Jan 30, 1999. Updated 
## Fri Apr 5, 1996 to use new templates. Updated Wed Apr 21 1999 to use 
## new library code. 

use strict; 

use lib ($ENV{PERL_XDRIVE_LIB} ) ; 
use CGI; 

use CGI:: Carp ' f atalsToBrowser 1 ; 

use XDrive::CGI qw(:MAIN); 

use XDrive: :Client: : Registration; 

use XDrive :: Template; 

use XDrive: :DatabaseO: : Search; 

use XDrive: : Library; 

use constant XD_REGISTRATION_DEFAULT_COUNTRY => 223; 

y exit &main; 

fit 

"~4 sub main { 

yj my $oContent « new XDrive :: Template; 

Hj my $oNavigation = new XDrive :: Template; 

%j my $oLayout = new XDrive :: Template; 

my $oCGI = new CGI; 



y] 

a 

H 5 



my $oCookie = XDrive : : CGI : : Cookie->new ( ' x_session_inf o 1 , $oCGI); 
my $oSearch; 



my $sReferee = $oCGI->param { 1 referee 1 ) ; 

my $sClaimTicket = $oCookie->getElement ( 1 ct 1 ) ; 



## Defaults 

my $sUsername = undef; 

my $sName First = undef; 

my $sNameLast = undef; 

my $nYOB = undef; 

my $nPromoSeq = undef; 

my $nGender = 3; 
my $sEmailAddress - undef; 



my ($country_seq, $occupation_seq, $postal_code, $ct_promo_seq) ; 



my IpullDownHash; 

if (XDDBConnectionCheckO && XDNFSCheck ( ) ) 
{ 

$oSearch = XDrive :: DatabaseO: : Search->new {undef ) 

} 

else 
{ 
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$sClaimTicket = undef; 
$oSearch = undef; 

%pullDownHash = generate_db_array ( ) ; 



} 



if ($sClaimTicket) { 

my $rhData = getUserData ( $oSearch, SsClaimTicker) ; 

if ($rhData) { 

my $oNewCgi - CGI->new ($rhData) ; 



$sUsername 
$sNameFirst 
$sNameLast 
$sEmailAddress 

$nYOB 
$nGender 
$occupation_seq 
$country_seq 
$postal_code 



$oNewCgi->param ( 1 username ' } ; 
$oNewCgi->param ( 1 name_f irst ' ) ; 
$oNewCgi->param ( f name_last' ) ; 
$oNewCgi->param ( 1 email_address 1 ) ; 

= $oNewCgi->param ( 'birth_year 1 ) 
$oNewCgi->param ( 1 gender 1 ) ; 
$oNewCgi->param ( 1 occupation_seq ' ) ; 
$oNewCgi->param ( 1 country_seq 1 ) ; 
$oNewCgi->param( *postal_code f ) ; 



if ($sReferee ne "") { 

# my $oCookie = XDrive: :CGI: : Cookie->new ( f x_session_inf o ' , $cCGI); 

my $sRefered_from = $oCGI->param ( ' type ' ) ; 
$oCookie->setElement { { 1 partner_code 1 => ? xdrv ' } ) ; 
$oCookie~>setElement ( { ' language ' => ' english 1 } ) ; 
$oCookie->setElement ({ 1 referee 1 => $sReferee}); 
$oCookie->setElement ( { 1 ref ered_f rom 1 => $sRef ered__f rom} ) ; 
print "Set-Cookie : " . $oCookie->asSt ring ( } ; 



$oContent->partner ( ' xdrv 1 ) ; 
$oNavigat ion->partner ( 1 xdrv ' ) ; 
$oLayout->partner ( 1 xdrv' ) ; 

## I T m assuming there will be one page and not a series of frames. 
## this can be changed if need be 

# my $oCookie * XDrive : : CGI : : Cookie->new ( 1 x_session__inf o r , $oCGI); 

# my $promo « $oCookie->getElement {' promo 1 ) ; 

my $promo = $oCookie->getElement ( ' promo 1 ) ; 



my $file_found; 

##if we have a promo, try to get a special registration page 
if ($promo) { 

##attempt to open a special registration page 

$file_found = $oLayout->load ($promo . T _registration . thtmi 1 ) ; 
if ( !$file_found) { 

##if we cannot, open the general promo reg page 
$file_found = $oLayout->load { 'promo_registration. thtml 1 ) ; 

} 

} 

##is we don't have a promo then use the standard registration 
if ( (! $promo) II (! $file_found) ) { 
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## Load the required template HTML files. 
$oNavigation->load ( "f ront_nav . thtml" ) ; 
$oContent->load ( " f ront_signup . thtml " ) ; 
$oLayout->load ( "layout . thtml" ) ; 



$oContent->tags 

({ 

1 username ' 
1 name_first ' 
1 name_last ' 
'email_address' 
1 country 1 



=> $sUsername, 
=> $sNameFirst, 
=> $sNameLast, 
=> $sEmailAddress, 
=> 



xd_f orm_countries_db_check (XD_REGISTRATION_DEFAULT_COUNTRY, 

$oSearch, \%pullDownHash) , 

'occupation 1 => xd_f orm_occupation_db_check (undef , 

$oSearch, \%pullDownHash) , 

'media type* => xd_f orm_media_type__db_check (undef , 

$oSearch, \%pullDownHash) , 

» gender 1 => xd_f orm_genderjdb_check (undef , 

$'oSearch, \%pullDownHash) , 

■ select jnarketing' => ' CHECKED 1 , 
'select_newsletter' => ' CHECKED 1 , 
'referee' => $sReferee, 

}); 

## Print out the HTML and exit 
$oLayout->tags 
({ 

'header_graphic' => header registration » gif ' , 

'title 1 => 'Register Now!', 
'content' => $oContent->get , 
'navigation' => $oNavigation->get 
} ) ; 



elsif ($sClaimTicket) { 
$oLayout->tags 
({ 

1 country' 



$oSearch) , 
$oSearch) , 



'occupation' 

'media_type' 
' gender ' 



'select_marketing' => 'CHECKED', 
'select^newsletter 1 => 1 CHECKED ' , 



-> xd_form_countries ( $country_seq, 

=> xd_form_occupation ($occupation_seq, 

=> xd_form_media_type (undef , $oSearch) , 
=> xd_f orm_gender ($nGender, $oSearch) , 



' username ' 

'name_first ' 

'name_last 1 

'email_address' 
'birth_year' 
'referee' 
'postal_code' 
} ) ; 



=> SsUsername, 

=> $sNameFirst, 

=> $sNameLast, 

=> $sEmailAddress, 
=> $nYOB, 
=> $sReferee, 
=> $postal_code 



} 

else { 



$oLayout->tags 
({ 
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'country 1 => 
xd_form_countries_db_check(XD_R£GISTRATION_DEFAULT_COUNTRY, 
$oSearch, \%pullDownHash) , 

' occupation ' => xd_f orm_occupat ion_db_check (undef , 
$.oSearch, \%pullDownHash) , 

f media_type 1 => xd_form_media__type_db_check (undef , 
$oSearch, \%pullDownHash) , 

1 gender 1 => xd_form_gender_db__check (undef , 
$oSearch, \%pullDownHash) , 

1 selectjaarketing 1 => 'CHECKED', 

■select_newsletter f => 1 CHECKED 1 , 

1 referee ' => $oCGI->param ( ' referee ' } , 

}) ; 



$oLayout->clear; 

print $oCGI->header, $oLayout->get ; 

if (defined $oSearch) 

{ 

$oSearch->disconnect () ; 

} 



S * return 0; 



%| ## johngaa add to check of db is up or down 
s 4 sub generate db_array 

■0, ## create a hash 

Q my %tempHash; 

fij my Si * 1; 

my $key; 
my @tempVal; 
^ open FH, "<down_data . dat " ; 

f s?s| 

fU while (<FH>) 

{ 

chomp $_; 

if ($_ — / A #(\w+)/g) 
{ 

my @newArray; 
$i = 1; 
$key = $1; 

$tempHash{$key} = [ @newArray ]; 

} 

else 

{ 

0tempVal = split ( /W, $_) ; 



$tempHash{$key}->[$i - 1] [0] = $tempVal [0] ; 
$tempHash{$key}->[$i - 1] [1] = $tempVal[l]; 
$i++; 

} 

} 
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close FH; 

return %tempHash; 

} 

sub xd_f orm_countries_db_check 
{ 

my $default * shift; 
my $oSearch = shift; 
my $puliDownHash = shift; 
my $returnVal; 

if (defined $oSearch) 
{ 

$returnVal « xd_form_countries (XD_REGISTRATION_DEFAULT_COUNTRY, $oSearch) , 

} 

else 
{ 

## insert alternate source of countries here 
my $templ * $pullDownHash->{ 1 country 1 } ; 

$returnVal ~ opt i ons_l i st (XD_REG IS TRATI0NJ3EFAU LT_COUNTRY, (2$ tempi ] ; 

} 

return $returnVal; 

} 



sub xd__f orm_occupation_db_check 
{ 

my $default = shift; 
my $oSearch = shift; 
my $pullDownHash = shift; 
my $returnVal; 

if (defined $oSearch) 
i 

$returnVal = xd__f orm_occupation (undef f $oSearch) , 

) 

else 
I 

## insert alternate source of countries here 
my $templ = $pullDownHash-> { 1 occupation '} ; 
$returnVal = options_list (undef , @$templ) ; 

} 

return $ return Val; 

} 

sub xd_f orm_media_type_db_check 
{ 

my $default = shift; 
my $oSearch = shift; 
my $pullDownHash = shift; 
my $returnVal; 

if (defined $oSearch) 
{ 

$returnVal = xd_f orm_media_type (undef , $oSearch) , 
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} 

else 
{ 

## insert alternate source of countries here 
my $templ = $pullDownHash->{ 'media_type ' } ; 
$returnVal - opt ions_l is t (undef, @$ tempi ) ; 

} 

return $returnVal; 

} 

sub xd_form_gender_db_check 
{ 

my $default = shift; 
my $oSearch = shift; 
my $pullDownHash = shift; 
my $returnVal; 

if (defined $oSearch) 
{ 

$returnVal - xd_form_gender (undef , $oSearch) , 

} 

else 
{ 

## insert alternate source of countries here 
my $templ * $pullDownHash->{ 1 gender 1 } ; 
$returnVal ■ options__list (undef , @$templ ) ; 

} 

return $returnVal; 

} 



## end of johngaa add 
sub getPromoURI ($$) { 

my $oSearch = shift; 

my @promo_seq = (shift) ; 

my $oDBH « $oSearch->f etchDBO->f etchDBH ( ) ; 

my $ s t = "SELECT uri FROM xdrive. promo WHERE seq = ?"; 

my $data = $oDBH->selectcol_arrayref ($st, undef, 6promo_seq) ; 

return $data->[0]; 

} . 

sub getUserData { 

my $oSearch = shift; 
my $sTicket = shift; 

my $oDBH = $oSearch->fetchDBO->f etchDBH () ; 

my $sQuery = "SELECT DATA FROM BATCH_USER_DATA WHERE CODE 

my $oCursor = $oDBH->prepare ($sQuery) ; 

$oCursor->bind_param(l, $sTicket) ; 

$oCur sor->execute ; 
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my $rh; 

my $sData = $oCursor->f etchrow_array ( } ; 

# my ($sData) = $oCursor->f etchrow__array ( ) 

# eval $sData; 

# return $rh; 
return $sData; 
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###signup_success.cgi 



# 1 /usr/bin/perl 

## This CGI allows us to pass the sst and sid on to the inner frame 
## 

## Modified by Justin White on 10/14/99 by manually printing the 
## header to the browser and getting rid of the XDrive:: CGI import. 
## Created new cgi, database, and error objects to pass to xd_securiry__check . 
## Also added the exit in the sub call. 

use strict; 

use lib ($EOT{PERL_XDRIVE_LIB}) ; 

CGI:: Carp qw ( fatalsToBrowser ) ; 
CGI ( ) ; 
Token; 

XDrive: : Client: '.Security; 
XDrive : : Template ; 
XDrive: :DatabaseO; 
XDrive: : Error; 
XDrive: : Library; 
XDrive: :CGI: : Cookie; 

&main ( ) ; 

"H exit; 



- new CGI; 

= new XDrive: :DatabaseO; 
= new XDrive :: Error ; 

new XDrive: :CGI: .-Cookie ( 1 x_ses si on_JLnf o 1 , SoCGI, ; 

g #### 

rt| ## Attempt to autenticate the user 

#### 

my $oToken = xd_security_check ($oDB0, $oCGI / $oErr) ; 
#### 

## If the autentication fails or there is an error during zhe 

## autentication phase then redirect to the error CGI 

#### 

if ($oErr->Occurud) 
{ 

xd_fatal_error ($oCGI/$oErr) ; 

exit; 

} 

#### 

## Otherwise we have a valid session 
#### 



use 
use 
use 
use 
use 
use 

Mi use 
use 

S use 



III sub main 



{ 

my $oCGI 
my $oDB0 
my $oErr 
my $oCookie 
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my $sUsername = $oToken->data ( 1 user 1 ) ; 

### Edited by Justin so that the partner_code is looked for in 
### the cookie instead of the token table. 

# my $sPartner = $oToken->data ( 1 partner_code ' ) ; 

my $sPartner = $oCookie->getElement (' partner ' ) ; 

if (! defined $sPartner) 
{ 

$sPartner = "xdrv"; 

$oCookie->setElement ( { ' partner 1 =>$sPartner } ) ; 
print "Set-Cookie: " , $oCookie->asString ( ) ; 

} 

my $oTemplate = new XDrive :: Template ( { ' partner_code ' => $sPartner} ); 

$oTemplate->load { 1 signup_success . thtml T ) ; 
$oTemplate->tags ( {'username' => $sUsername} ); 

print "content-type: text /html \n\n M ; 



m print $oTemplate->get ( ) ; 

n $oDBO->disconnect ( ) ; 

;J return 0; 
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###signup_toc.cgi 



# ! /usr/bin/perl 

## Written by Martin Hald <mhald@uci . edu> on Sat, Jan 30, 1999. Updated 

## Fri Apr 5, 1996 to use new templates. 

## 

## Modified by Justin White on 10/11/1999 so that it sets a cookie. 
## 

## Modified by Martin Hald on 11/15/1999 so that is now accepts 
## - partner 
## - language 
## - agreeuri 
## - disagreeuri 

use strict; 

use lib ($ENV{PERL_XDRIVE_LIB}) ; 
use CGI; 

use CGI:: Carp qw (f atalsToBrowser ) ; 
use XDrive: : Template; 
^ use XDrive : : CGI : : Cookie ; 

Q &main ( ) ; 

Si 

■*% 

yj exit; 

sj sub main { 

} ^ my $cookie; 

^ my $sPartnerCode; 

MSSi, 

W my $oCGI = new CGI; 

W my $oCookie = XDrive: :CGI : : Cookie->new { 1 x_session_inf o ? , $oCGI); 

fa£ my $sReferee = $oCGI->param ( ■ referee ■ ) ; 

my $sPartner = $oCGI->param ( 1 partner 1 ) ; 

Q my $sLanguage = $oCGI->param ( f language 1 ) ; 

iTs my $sRefered from = $oCGI->param ( ! type 1 ) ; 

m — 

$oCookie->setElement ( { f partner_code ' =>$sPartner } ) ; 
$oCookie->setElement ( { 1 language 1 =>$sLanguage } ) ; 

if ($sReferee ne ""} { 

$oCookie->setElement ({ 'referee 1 => $sReferee}); 
$oCookie->setElement ( { 1 ref ered_f rom 1 => $sRef ered_f rom} ) ; 
print "Set-Cookie: " . $oCookie->asString ( ) ; 

} 

if {! defined $sPartner) { 
$sPartner - 'xdrv'; 

} 

## Load the terms and conditions 

my $hDefaults = { 'partner^ode 1 =>$sPartner, 1 cookie 1 =>$oCookie} ; 
my $oContent = new XDrive : :Template ($hDefaults) ; 
my $oLayout = new XDrive :: Template ($hDefaults) ; 
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$oContent->load ( 1 presignup . thtml 1 ) ; 



if ($sPartner eq 'xdrv') { 

my $oNavigation = new XDrive: :Template ($hDef aults ) ; 
my $oHeader = new XDrive :: Template ($hDef suits ) ; 

my $oFooter = new XDrive :: Template ($hDef aults ) ; 
$oLayout->load ( ' layout . thtml ' ) ; 
$oNavigat ion->load ( ' f ront_nav . thtml ' } ; 
$oHeader->load{ 'presignup_header . thtml 1 ) ; 
$oFooter->load { ' presignup_f ooter . thtml 1 ) ; 
$oContent->tags ( { 'header' => $oHeader->ge_ / 

'footer 1 => $oFooter->get, }}; 
$oLayout->tags ( { 'navigation' »> $oNavigation->get , 

'headerjgraphic' => 'header_registration.gif 1 , }); 

} else { 

$oLayout->load ( 1 tac_wrapper . thtml ' ) ; 

} 



my $sAgreeURI = $oCGI->param (' agreeuri '} ; 
my $sDisagreeURI = $oCGI->param { ' disagreeuri 1 ) ; 

$oLayout->tags { { 'title' => 'Terms and Conditions ' , 

'content' => $oContent->get , 

'agreeuri' => $sAgreeURI, 

'disagreeuri' => $sDisagreeURI # } ) ; 

$oLayout->clear; 

print $oCGI->header () ; 
print $oLayout->get ; 



2 s ! return 0; 
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###skipJhe_down!oad.cgi 

# ! /usr/bin/perl 
use strict; 

use lib $ENV{PERL_XDRIVE_LIB}; 

use CGI qw(param redirect header cookie); 
use CGI : : Cookie; 

use LWP: :UserAgent; 

use CGI:: Carp qw (f atalsToBrowser ) ; 

use XDrive: : Client :: Security; 

use XDrive: : Client :: Actions; 

use XDrive: :DatabaseO: : Table: : DiskAccount; 

use XDrive: :DatabaseO: -.Search; 

use XDrive: :DatabaseO: : Transaction; 

use XDrive: : Template; 

use XDrive:: CGI qw(:MAIN); 

use XDrive: : CGI: : Cookie; 

use XDrive: :DatabaseO; 

use XDrive: : Error; 

use constant TRUE => (1=1); 
use constant FALSE => ! TRUE; 
use Token; 



my $oDBO = new XDrive :: DatabaseO; 
main($oDBO) ; 

$oDBO->disconnect; 
exit; 

###«###########################################################*########*### 
## NOTE: Remove the quota check from here. will be handled in java. 

####»##############™ 

sub main 

{ 

my $oDBO = shift; 

my $oCGI = CGI->new(); 

my $oErr = new XDrive :: Error ; 

my $oCookie = XDrive :: CGI :: Cookie->new (' xd_std_info ! , $oCGI); 



## params for file url and file name 

my $sFileURL = $oCGI->param ( 1 FILEURL 1 ) ; 

my $sFileName - $oCGI->param ( 1 FILENAME 1 ) ; 

my $sAltURL - $oCGI->param ( T ALTURL 1 ) ; 

my $sSid = $oCGI->param ( 1 SID' } ; 

my $sGid - $oCGI->param ( 1 GID f ) ; 

my $sCatId * $oCGI->param ( f CATID 1 ) ; 
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my $sPartnerCode = $oCGI->param( 1 STDPARTNER' ) ; 

my $sLanguageCode = $oCGI->param ( 1 LANG f ) ; 

my $sUsername = $oCGI->param( 'user 1 ) ; 

my $sPassword = $oCGI->param ( 'pass ' ) ; 

my $sError - $oCGI->param ( 1 error 1 ) ; 

my $sCookie = $oCGI->cookie ( 1 SST 1 ) ; 

my $sessionCookie; 

my $sPromo = T 1 ; 

my $sPartnerParams = ""; 

my $sCNetString - ""; 



## IF THE SPECIAL C I NET VARIABLES ARE DECLARED 

## THEN GENERATE THE C | NET STRING 

## THIS URL IS CALLED FOR ANY FILE DOWNLOADED 

## FROM C| NET SO THAT THEY CAN CREDIT THE FILE 

## BEING DOWNLOADED 

if ( 

($sSid !« ") 
($sGid !- ' 1 ) && 
{$sCatId != 1 ' ) 
) ( 

$sAltURL = "http://beta.cnet.com/downloads/0-" . $sCatId . "-107- 
$sSid . ".html?tag=ex.dl.xdrive"; 



## IF YOU ARE ON THE TEST SERVERS, 
Mi ## THEN USE C 1 NET ' S TEST URL 

if ( 

Q ($ENV{ 'HTTP^HOST' } eq 'martini . xdrive . corn' } M 

py ($ENV{ 1 HTTP_HOST ' } eq ' antifreeze . xdrive . com 1 ) 

M ) ( 

l m $sCNetString = "http: //abv-sjc2- 

export2.cnet.eom/downloads/0, 10152,0-" . 

$sCatId . 
"-110-" . 
$sSid . 

",00.html?gid=" . 
$sGid . 

"&tag=ex.dl.xdrivepop.dlcgi. " . 
$sSid; 

## ELSE, USE THEIR REAL URL 
} else { 

$sCNetString - "http: //abv-s j cl- 
export2.cnet.eom/downloads/0, 10152, 0-" . 

$sCatId . 
"-110-" . 
$sSid . 

",00.html?gid=" . 
$sGid . 

" &tag=ex . dl . xdrivepop . dlcgi . " . 
$sSid; 
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} 

} 



II 



$sPartnerParams = 
STDPARTNER==$s Part nerCode&LANG==$sLanguageCode&ALTURL==$s Alt URL" ; 



$oCookie->setElement ( 



1 FILEURL 1 
T FILENAME 1 
1 ALTURL 1 
1 STDPARTNER' 
1 LANG f 
1 CATID 1 
1 SID 1 
1 GID ' 



-> $sFileURL, 

=> $sFileNarae, 

-> $sAltURL, 

=> $sPartnerCode / 

=> $sLanguageCode, 

=> $sCatId, 

=> $sSid, 

=> $sGid, 



}); 



print "Set-Cookie: $oCookie->asString ( ) ; 

my $n = 0; 
my $rv; 

## Create the database object 

my $oSearch = XDrive : : DatabaseO: : Search->new ($oDBO) ; 

##The token for the user session 
my $oToken; 

## If u/p 

if (defined $sUsername && defined $sPassword) 
{ 

## Auth or fail 

if (xd_auth_password($sUsername, $sPassword / $oDBO) } 



{ 

$oToken = xd_login ( $oCGI , $sUsername, $oErr ) ; 

$sessionCookie * xd_set_session_cookie { $oCGI, $sPartnerCode, 



{ 

## Login failed 
my $r = getHTMLContent 
( 

' skip_the_download_login_f ailed, thtml 1 , 

$sFileURL, 
$sFileName 7 
$sAltURL, 
$sPartnerCode, 
$sLanguageCode 
); 

print "Content-type: text/html\n\n"; 
print $r; 
return 1; 



$sLanguageCode, $sPromo) ; 



else 
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} 



} 

## error or cookie not defined 
elsif ( (length ($sError) > 0) || (length ( $sCookie) == 0) ) 
{ 

## show the login page 

my $r = getHTMLContent { 1 skip_the_download_login . thtml 1 , 

$sFileURL, 

$sFileName, 

$sAltURL, 
$sPartnerCode, 
$sLanguageCode 
); 

print "Content-type: text/html\n\n" ; 
print $r; 
return 1; 
} 

else 

## cookie defined so authenticate it 
{ 

$oToken = xd_security_check {$oDB0, $oCGI , $oErr) ; 
$sessionCookie = xd_set_session__cookie ($oCGI, $sPartnerCode, 
$sLanguageCode, $sPromo) ; 

if ($oErr->Occurud) 
{ 

print $oCG3»redirect ("/cgi- 
bin/skip_the_download.cgi?&error=expired&$sPartnerParams") ; 

return 1; 

} 

} 



if ( ! $sFileQRL) { 

my $thtml = ($sAltURL != ,! )? 1 skip_t he_download_no_alt_err or . thtml T 

: 1 skip_the_download_error . thtml 1 ; 



my $sMessage = $oErr->ReturnMessageGivenCode ( 1220) ; 

SThtmlErrorOut ($ thtml, 
$sMessage, 
$sFileURL, 
$sFileName, 
$sAltURL, 
$sPartnerCode, 
$sLanguageCode 

); 

} 



## create the Actions object and download the file 

my $oAction = new XDrive :: Client :: Actions ($oToken, $oCGI ) ; 
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## set the filename and file url 
$oAction->STDFilename ($sFileName) ; 
$oAction->STDURL($sFileURL) ; 

## see if file exists, if yes, give em message 
my $bFileExists = $oAction->STDFileExists ( ) ; 

if ($bFileExists) 
{ 

$oDBO->dis connect ( ) ; 

my $sMessage = $oErr->ReturnMessageGivenCode (1242) ; 
ErrorOut ($sMessage, $sFileURL, $sFileName / $sAltURL, $sPartnerCode, $sLanguageC 

ode) ; 

} 

## Check that the file is not already being downloaded 

if ($oSearch->XDSTDBeingDownloaded($oToken->user, $sFileURL) ) 

{ 

$oDBO->disconnect ( ) ; 

my $sMessage = $oErr->ReturnMessageGivenCode ( 1243) ; 
ErrorOut ($sMessage, $sFileURL, $sFileName / $sAltURL, $sPartnerCode, $sLanguageC 

ode) ; 

} 

## Spool the action to download the file 

my $oTransaction = new XDrive :: DatabaseO: : Transaction ($oDBO) ; 
my $nSeq = $oTransaction->insertSkipTheDownload 

( 

$oToken->user f 
$sFileName 7 
$sFileURL, 
0, 

undef 

); 

$oTransaction->commit; 

## Insert failed return an error 
if ($nSeq < 0) 
{ 

$oDBO->disconnect ( ) ; 

my $sMessage = $oErr->ReturnMessageGivenCode ( 1244 ) ; 
ErrorOut ($sMessage, $sFileURL f $sFileName, $sAltURL, $sPartnerCode, $sLanguageC 

ode) ; 

} 

## IF THE INSERT DIDN'T FAIL, 

## AND THE SPECIAL C | NET URL ISN'T NULL 

## THEN CREDIT C I NET 

elsif ($sCNetString ne 1 1 ) 

{ 

my $oUA = new LWP: : User Agent ; 

$oUA->agent ("XDriveSTD/O . 1 " . $oUA->agent) ; 
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# Create a request 

my $oRequest = new HTTP: : Request GET => $sCNetString; 

# Pass request to the user agent and get a response back 
my $oResult = $oUA->request ($oRequest ) ; 



print redirect { "/cgi- 
bin/skip_the_download_status.cgi?seq=$nSeq&$sPartnerParams") ; 

} 



sub ErrorOut ( ) 
{ 

Ul my $sMessage = shift; 

f : i my $sFileURL = shift; 

■35 my $sFileName = shift; 

J1 my $sAltURL « shift; 

my $sPartnerCode = shift; 
my $sLanguageCode = shift; 
'H 

S| m y $html * &getHTMLContent ( , skip_the_download_no_alt_error . thtmlV 

f| " " $sFileURL, 

$sFileName, 
$sAltURL f 
$sPartnerCode, 
$ sLanguageCode , 
$sMessage, 
); 



print "Content-type: text/html\n\n" 
print $html; 
exit (0) ; 



sub ThtmlErrorOut () 
{ 

my Sthtml = shift; 

my $sMessage = shift; 

my $sFileURL = shift; 

my $sFileName = shift; 

my $sAltURL = shift; 

my $sPartnerCode - shift; 

my $sLanguageCode - shift; 

my $html = SgetHTMLContent ($thtml, 

$sFileURL, 
$sFileName, 
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$sAltURL, 

$sPartnerCode, 

$sLanguageCode/ 

$sMessage, 

); 



print "Content-type: text /html \n\n"; 
print $html; 
exit (0) ; 



sub getHTMLContent 

my $thtmlfile = shift; 
my $sFileURL = shift; 
my $sFileName = shift; 
my $sAltURL = shift; 
my $sPartnerCode = shift; 
my $sLanguageCode = shift; 
my $sMessage = shift; 

my $template = new XDrive: : Template 
({ 

'partner_code' => $sPartnerCode, 
T language 1 => $sLanguageCode, 
'file 1 => $thtmlfile, 
'tags' => 

1 FILE_URL 1 -> $sFileURL, 
, FILE_NAME ! => $sFileName, 
1 ALTURL 1 => SsAltURL, 
' LANG ' => $sLanguageCode, 
T STDPARTNER' => $sPartnerCode, 
'message' => $sMessage, 

}) ; 

$template->clear ( ) ; 
return $template->get ; 



## Create a string which makes the previously created 
## cookie expire. 

sub empty_cookie 
{ 

my $oSelf = shift; 
my $cookie = new CGI:: Cookie 
( 

-name ==> 'sst', 
-value => 1 1 , 
-expires => f -lM' 
); 

print header (~cookie=> [$cookie] ) ; 

} 



a 
ru 
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###skip_the_download_statusxgi 

# ! /usr/bin/perl 

use lib ($ENV{PERL_XDRIVE_LIB}) ; 

use CGI qw (header redirect) ; 
use XDrive: :CGI; 
use XDrive: .-Client: : Actions; 
use XDrive: : Client :: Security; 
use XDrive :: DatabaseO; 

use XDrive : : DatabaseO: : Table : : SkipDownload; 
use XDrive: .-Template; 
use XDrive: : Error; 
use XDrive: : Library; 
use Token; 



\ 3 



use strict; 

use constant TEMP_J)IR => XDSTDTempDirectory ( ) ; 



\5 &main; 
W exit(O) ; 



* p| sub main 

T { 

Jl. ## get parameters 

jrj my $nFileSize; 

j.M my $sTempFile; 

M my $s Filename; 

H i^y $sError; 

Q my $nStatus; 

fh my $bDone; 

my $percent = 0; 

my $nDownloadedSize = 0; 

my $sURL; 

my $nNow; 



my $oCGI = new CGI ( ) ; 

my $nSeq = $oCGI->param ( 1 seq f ) ; 

my $nStart = $oCGI->param (' start 1 ) ; 

my $sPartnerCode = $oCGI->param ( 1 STDPARTNER ' ) ; 

my $sLanguageCode = $oCGI->param { 1 LANG 1 ) ; 

my $sAltURL = $oCGI->param ( ' ALTURL 1 ) ; 

my $previous_percent = $oCGI->param ( r pp 1 ) ; 

## SET THE CONNECT I ON_COUNT = 0 IF IT ISN'T PASSED IN 

my $ connect ion_count = ( $oCGI->param { 1 cc 1 ) ) ? $oCGI->param ( 1 cc 1 ) : 0; 

my $oErr = new XDrive :: Error; 

## get the token and the action object 
my $oDB0 = new XDrive :: DatabaseO; 

my $oToken = xd_security_check ($oDBO, $oCGI, $oErr) ; 
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my $oAction = new XDrive: : Client :: Actions ($oToken / $oCGI) ; 



my $sPartnerParams = 
'STDPARTNER-$sPartnerCode&LANG^$sLanguageCode&ALTURL=$sAitURL"; 

if ($oErr->Occurud) 

print redirect ("/cgi-bin/skip_the_download.cgi?$sPartnerParams") ; 
return; 

> 

## if the sequence number was passed then get infomation from the database, 

if (defined $nSeq) 

{ 

## load the information from the datbase 

my $oSkip = XDrive :: DatabaseO: : Table :: SkipDownload->new (undef, $oDBO) ; 
$oSkip->loadWhere ( 1 SEQ 1 , $nSeq) ; 

$nFileSize = $oSkip->f etchColumn ( T FILE_SIZE_BYTES 1 ) ; 

$sTempFile - $oSkip->f etchColumn ( 1 FILENAME_FOR_TEMP_FILE ' ) ; 

$sFileName = $oSkip~>f etchColumn { 1 FILENAME ' ) ; 

$nStatus - $oSkip->f etchColumn { ' IS_ACTIVE 1 ) ; 

$sError = $oSkip->f etchColumn ( ' ERROR_CODE ' ) ; 

$sURL - $oSkip->f etchColumn ( 1 FILEJJRL ' ) ; 

$bDone = $oSkip->f etchColumn ( 1 IS_DONE ' ) ; 

} 

## XDRIVE.SKIPJTHE_DOWNLOAD.IS_ACTIVE lengend 
## 0 - still in queue 
## 1 - being downloaded 
## 2 - on hold 



## IF CONNECTION_COUTN > 9, THEN GO TO THE FILE NOT FOUND (1220) ERROR 
## DISPLAY, BUT KEEP TRYING TO DOWNLOAD THE FILE 
if ($connection_count >9) { 
$sError=1220; 

} 

## IF AN ERROR OCCURRED THEN DISPLAY IT 
## AND THEN EXIT(O) ; 
if (defined $sError) 

{ 

if (SsError == 1240) 
{ 

&DisplayQuotaError ( 1 1 , 
$sURL, 
$sFileName, 
$sAltURL, 
$sPartnerCode, 
$sLanguageCode 

); 

} 

else 
{ 

my $oErr = new XDrive: : Error; 
$oErr->AddErrorByErrorCode (SsError) ; 
&DisplayError ($oErr->Message ( ) , 
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$sURL, 
$sFileName, 
$s Alt URL, 
$sPartnerCode, 
$ s Language Code 

) ; 

} 

} 

## IF THERE IS NO ERROR, THEN GATHER STATUS 

## AND DISPLAY TO THE USER 

else 

{ 



## Get file size, later change to get from a tmp file 
my $sPath - TEMP_DIR. "/$sTempFile" ; 



## IF STATUS IS LISTED AS DONE IN THE DB, 
## THEN SHOW THE DONE PAGE 
if ($bDone — 1) 
{ 

&DisplayDone ( ' f , 
$sURL, 
$sFileName, 
$sAltURL, 
$sPartnerCode, 
$sLanguageCode 

); 



## ELSE FILE IS NOT DONE, 

## GATHER MORE DATA AND DISPLAY TO USER 

else 

{ 



## IF STATUS IS NOT ACTIVE, OR THE FILE DOESN'T EXIST 
## THEN DISPLAY THE CONTACTING SERVER PAGE 
## REMOVED: I I ! -e $sPath 
## FROM CHECK 

if ( ($nStatus ==0 II -e $sPath) 
&& { ! ($previous_percent >= 0)) 

) 

{ 

SDisplayContactServer ($nSeq, $sURL, $sFileName, $sAItURL, $sPartnerCode, $sLang 
uageCode, $sPartnerParams , $connection_count ) ; 
} 

## ELSE, GATHER STATUS DATA 
## AND DISPLAY TO USER 
else 

{ 

## Set the start time in seconds since the epoch if not passed 
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## as parameter 

if (! defined $nStart II $nStart !~ / A \d+$/) 
{ 

$nStart = time() ; 

} 



Si 



Us 



## IF NO FILE SIZE HAS BEEN SET IN THE DB 
## DISPLAY ZERO PERCENTAGES TO THE USER 
if (! defined $nFileSize II $nFileSize =«= 0) 
{ 

$nFileSize - f 0*; 
$percent = 1 0 1 ; 

SDisplayStatus ($nSeq, $percent , $sFileName, $nFileSize, 1 1 , 
$nStart, 1 \ ' ', 

$sAltURL, $ s PartnerCode,$sLanguageCode,$sPartnerParams) ; 

} 

## ELSE 

## * THERE WAS NO ERROR 
## * THE FILE WAS NOT DONE 

## * THE FILE EXISTS IN THE TEMPORARY DIRECTORY 
## * THE DB HAS AN EXPECTED FILE SIZE 

## SO READ THE FILE, CALCULATE DATA, AND DISPLAY TO USER 

else 

{ 

## These checks are performed before inserting the skip 

information 

## into the database, but we will do it again here to be safe. 

# my $sError « $oErr->ReturnMessageGivenCode (141 ) ; 

# XDErrorToBrowser ("", $sError, undef , $oToken) ; 

##die "Cannot check $sPath" if $sPath A.W; 
##die "Cannot check $sPath" if $sPath =~ AA//; 

## Get the size of the download object 
my @file_info = stat ($sPath) ; 

## Conver the downloaded file size into KB 

if ($file_info[7] > 0) 

{ 

$nDownloadedSize = $f ile_inf o [7] ; 

if ($nFileSize > 0) 
{ 

$percent = 100 * $nDownloadedSize/$nFileSize; 
} 

if ($percent < 0) 
{ 

$percent - 0; 
} 

$percent = sprint f ("% . 2f ", $percent) ; 

} 
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## IF THE FILE IS GONE NOW, OR SOME OTHER CONDITION, THE USER 
## WILL NEVER SEE THE %DONE DROP 

## USE WHICH EVER IS LARGER, THE P RECENT THAT WE JUST DISPLAYED 

## OF THE ONE THAT WE JUST READ FROM THE FILE SYSTEM 

$percent = ($previous_percent > $percent) ? $previous_percent : 

$percent ; 

## We have already transferee! some of the file, so we can now 
## estimate the download time. 
$nNow - time {) ; 

my $sInfo; 

my $nElapsedSec - $nNow - $nStart; 
my $nTransPerSec - 0; 

if ($nElapsedSec) 
{ 

$nTransPerSec = $f ile_inf o [7] /$nElapsedSec; 

} 

if ($nTransPerSec > 0) 
{ 

my $partial = $percent/100; 

my ($nSecsRemain, $nMin, $nSecs, $nTransPerSecMB) ; 

if ($partial == 0) { 

$sInfo = 
} else { 

$nSecsRemain = ( $nElapsedSec/$partial ) -$nElapsedSec; 
$nMin = int ($nSecsRemain/60 ) ; 
$nSecs - $nSecsRemain % 60; 
$nTransPerSecMB = $nTransPerSec/1024 ; 

} 

$sInfo = sprintf(", %d:%02d remaining (%.2f 
KB/sec) ", $nMin, $nSecs 

, $nTransPerSecMB) ; 

} 

my $nTrans; 

my $k - "KB"; 
my $nDiv = 1024; 

my $nTempSize = $f ile_inf o [7] | | 0; 

if ($nFileSize > 1024*1024) 
{ 

$k = "MB"; 

$nDiv = 1024*1024; 

} 

if ($nFileSize < 0) 
{ 

$nFileSize = 0; 
} 
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$nFileSize = sprintf ( "% . 2f ", $nFileSize/$nDiv) ; 
$nTrans = sprintf ("%. 2f n , $nTempSize/$nDiv) ; 

&DisplayStatus ($nSeq, $percent , $sFileName, $nFileSize, 1 ■ , 
$nStart, $slnf o, $k, 

$s Alt URL, $sPartnerCode, $sLanguageCode, $sPartnerParams ) ; 

## END OF READING DATA FROM SYSTEM AND 

## DISPLAYING TO USER 

} 

## END OF NO EXPECTED SIZE IN DB 
## SHOW USER ZERO PERCENTAGES 
} 

## END OF FILE MUST BE DONE 
## SO SHOW A DONE 

} 

## END OF NO ERROR 
} 

$oDBO->disconnect ; 



sub DisplayContactServer 
{ 

my 

($nSeq, $sURL, $sFileName, $s Alt URL, $sPartnerCode, $sLanguageCode, $s Partner Params, $c 
onnection_count) - @_; 

my (SsHostname) = $sURL — /\/\/ ( [ +) Mil 
$ connect i on_count + + ; 

## load the status page 
my $template « new XDrive: : Template 
( { 

1 partner_code T => $sPartnerCode, 
'language 1 => $sLanguageCode f 

' file f «> ' skip_the_download_cont acting . thtml ' , 
'tags 1 => 

{ 

f hostname* => $sHostname, 

1 continue_to f => "/cgi- 
bin/skip_the_download_status.cgi?seq=$nSeq&cc=$connection_count&$sPartnerParams" 

'fileName' => $sFileName, 
'alt URL 1 => $sAltURL, 
} 

}); 

print "Content-type: text /html \n\n n ; 
print $template->get; 

} 
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sub DisplayStatus 
{ 

my $nSeq - shift; 

my $percent = shift; 

my $ filename = shift; 

my $filesize = shift; 

my $transf erred = shift; 

my $ start = shift; 

my $info = shift; 

my $k « shift; 

my $sAltURL = shift; 

my $sPartnerCode = shift; 

my $sLanguageCode = shift; 

my $sPartnerParams = shift; 

my $percent_disp; 

if ($filesize <= 0) 
{ 

$filesize = 'Unknown'; 
$k = ' ■; 

$percent_disp = ' Unknown ' ; 
$percent = 0; 

} 

else 
i 

$percent_disp = "$percent%" ; 

} 

## load the status page 
my $template - new XDrive :: Template 
({ 

'partner_code' => $sPartnerCode, 

1 language' => $sLanguageCode, 

1 file' => ' skip_the_download_status . thtml ' , 

'tags' => 

{ 

'PERCENTJDISP' => $percent_disp, 

' PERCENT ' => $percent, 

' FILE_NAME ' => $ filename, 

'FILE_SIZE' => $filesize, 

' TRANSFERRED' => $transf erred, 

1 TRANS INFO 1 => $info, 

, K' «> $k, 

'URL' => "/cgi- 

bin/skip_the_download_status.cgi?seq=$nSeq&start=$start&pp=$percent&$sPartnerPar 
ams " , 

'altURL' => $sAltURL 
} 

}); 

$template->clear; 

print "Content-type: text/html\n\n" ; 
print $template->get; 
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sub DisplayDone 
{ 

my $sMessage = shift; 

my $sFileURL - shift; 

my $sFileName = shift; 

my $sAltURL - shift; 

my $sPartnerCode - shift; 

my $sLanguageCode - shift; 

&ErrorOut ( 1 skip_the_download_complete . thtml 1 , 
$sFileURL f 
$sFileName, 
$sAltURL f 
$sPartnerCode, 
$ sLanguageCode , 
$sMessage 
); 



} 



Q sub DisplayError 

5 { 

s t \ my $sError = shift; 

/] my $sFileURL = shift; 

n my $sFileName = shift; 

^ my $sAltURL = shift; 

"J my $sPartnerCode = shift; 

Ml my $sLanguageCode - shift; 

p my $ thtml = ($sAltURL != 1 ')? 1 skip_the_download_no_alt_err or . thtml 1 
m ' : 1 skip_the_download_error . thtml 1 ; 

La &Er rorOut ( $ thtml , 

% $sFileURL, 
;;f! $sFileName, 
HJ $sAltURL, 

$sPartnerCode, 

$sLanguageCode, 

$sError 

) ; 



} 



sub DisplayQuotaError 
{ 

my $sError = shift; 

my $sFileURL = shift; 

my $sFileName = shift; 

my $sAltURL = shift; 

my $sPartnerCode = shift; 

my $ sLanguageCode - shift; 

&ErrorOut ( 1 skip_the_download_quota_error . thtml 1 , 
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$sFileURL, 

$sFileName, 

$sAltURL, 

$sPartnerCode, 

$sLanguageCode, 

$sError 

); 



sub ErrorOut {) 
{ 

my $sTHTMLFILE = shift; 
ray $sFileURL = shift; 
my $sFileName = shift; 
my $sAltURL - shift; 
my $sPartnerCode = shift; 
my $sLanguageCode = shift; 
my $sMessage - shift; 



my $template « new XDrive:': Template 

N ' ( { 

U| 'language 1 => $sLanguageCode, 

Sj ' partner_code 1 => $sPartnerCode, 

'file 1 => $sTHTMLFILE, 
'tags 1 => 



{ 



~. 'message 1 => $sMessage, 

y 'altURL' => $sAltURL, 

rtl ' fileURL' => $sFileURL, 

H 1 FILE_NAME' => $sFileName, 

M 1 LANG 1 => $sLanguageCode, 

Q 'ALTURL' => $sAltURL, 

f(\ ' STDPARTNER' => $sPartnerCode, 

} 

}); 

my $html = $template->get; 

print "Content-type: text /html \n\n"; 
print $html; 



} 
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hi 



srs:!S 



1 \ 



###tell_a_friend.cgi 

# 1 /usr/bin/perl 

use lib ($ENV{PERL_XDRIVE__LIB}) ; 

use XDrive: : Client :: Quota; 

use XDrive: :DatabaseO: : Table: :UserData; 

use XDrive: : DatabaseO; 

use Mail: :Sendmail; 

use CGI::Carp qw (fatalsToBrowser) ; 

use CGI; 

use XDrive: : Library; 

use XDrive: : Template; 

use XDrive: :CGI qw(:MAIN); 

use XDrive: : Client :: Security; 

use XDrive: : Error; 

use strict; 

&main { ) ; 

sub main { 

my $oCGI = new CGI; 

my $oErr = new XDrive :: Error; 

my $oDBO = new XDrive :: DatabaseO; 

my $oCookie = new XDrive: : CGI :: Cookie ( 1 x_session_inf o ' , $oCGI); 
#### 

## Attempt to autenticate the user 
#### 

my $oToken - xd_security_check ($oDBO, $oCGI , $oErr) ; 



O #### 



## If the autentication fails or there is an error during the 

## autentication phase then redirect to the error CGI 

#### 

if ($o£rr->Occurud) 
{ 

xd_fatal_error ($oCGI, $oErr) ; 

exit; 

} 



#### 

## Otherwise we have a valid session 
#### 



my $nUser_ID = UserldGet ($oToken->data ( 1 user 1 ) ) ; 

my $oUserInfo = XDrive: : DatabaseO: : Table : : UserData->new (undef , $oDBO) ; 

##we now have multiple email fields 

##get the first one and see if it contains any data 

my $sAddress - $oCGI->param ( 1 f riends_emaill 1 ) ; 
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my $sName « $oCGI->param( 1 friends_namel ■ ) ; 
$oUserInfo->loadWherePK($nUser_ID) ; 
##$oUserInfo->loadWhere ( ' SEQ 1 , $nUser_ID) 

my $sUser_name = $oUserInfo->f etchColiimn ( 1 NAME_FIRST f ) . " " . $oUserInfo- 
>f etchColumn ( ' NAMEJLAST 1 ) ; 

my $sUser_email = $oUserInfo->f etchColumn ( 1 EMAIL_AD DRESS T ) ; 
$oUserInfo->finish() ; 

$oUserInfo->disconnect () ; 

if ($sAddress) 
{ 

&send_mail ($sName, $sAddress, $sUser_name, $sUser_email, $nUserJED, 
$oCGI, $oToken, $oErr, $oCookie) ; 

&display_thank_you($oCGI, $oCookie) ; 
} 

else 

{ 

&display_form($oCGI,$oCookie) ; 
} 

} 



sub send_mail { 

my ($sName, $sAddress, $sUser_name, $sUser_email, $nUser_ID, $oCGI, 
$oToken, $oErr, $oCookie) = @_; 

## send out email for each friend only if form is filled out 
## get number of friend fields 

my $numFriends = $oCGI->param{ "numFriends" ) ; 
for (my $i=l; $i<=$numFriends; $i++) 
{ 

$sAddress = $oCGI->param( 1 friends_email ' . $i); 
$sName = $oCGI->param ( 1 f riends_name 1 . $i) ; 

my $sMessage = &get_message ($sUser_name, $nUser_ID, $sName, 
$sUser_name, $oCookie) ; 

##only send the mail if the email address is filled out 

if ($sAddress) 

{ 

my %toXdrive = 

( 

To => "$sName <$sAddress>" , 

Bcc «> ' 1 , 

From => "$sUser_email", 

Message => $sMessage, 

Subject => "Check out X : drive l w , 

); 

unless (sendmail %toXdrive) 
{ 

warn w ## Mail error ". $Mail :: Sendmail :: error; 
if ($Mail: : Sendmail :: error =~ /451/) 
{ 

my $sError = $oErr->ReturnMessageGivenCode (1310) ; 
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Ml' 



XDErrorToBrowser ( " " , $sError , undef , $oToken ) ; 
} 

else 

{ 

my $sError = $oErr->ReturnMessageGivenCode ( 1311 ) ; 

XDErrorToBrowser ( ' tell_a_f riend error . thtml 1 , $sError , undef , $oToken) ; 

} 

exit (1) ; 

} 

} 

} 



sub get_formf ield { 

my {$sNum, $oCookie) = S_; 

my $oFormField = new XDrive: : Template 
{{ 

' language 1 «> $oCookie->getElement ( ■ language ■ ) , 

1 partner_code 1 => $oCookie->getElement ( 1 partner 1 ) , 
}); 

$oFormField->load ( ' tell_f orm_f ields . thtml 1 ) ; 

$oFormField->tags 
({ 

'number' => $sNum 

}); 

return $oFormField->get ; 



sub getjmessage { 

my ($sUser_name, $nUser_ID, $sName, $sUserEmail, $oCookie) 

my $oMessage = new XDrive: : Template 
({ 

'language 1 => $oCookie->getElement ( r language 1 ) , 

1 partner_code 1 => $oCookie->getElement ( 1 partner 1 ) , 

}); 

$oMessage->load ( 1 tell_a_f riend message . thtml 1 ) ; 

$oMessage->tags 
({ 

■userjiame' => $sUser_name, 
T nUser_ID T -> $nUser_ID, 
'user_email' => $sUserEmail, 
•friend name' => $sName 

}); 

return $oMessage->get ; 
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sub display_form { 
my $oCGI = shift; 
my $oCookie * shift; 
my $oForm ~ new XDrive: : Template 
({ 

1 language ' => $oCookie->getElement ( 1 language ? ) , 

1 partner_code T => $oCookie->getElement ( 1 partner ' } , 
}); 

$oForm->load( , tell_a_friend.thtml l ) ; 

my $numFriends = $oCGI->param ( "numFriends" ) ; 

##construct the html for multiple input fields 
my $inputFields= T ' ; 

for (my $i=l; $i<=$numFriends ; $i++) 
{ 

$inputFields = $inputFields . &get_f ormf ield ($i, $oCookie) ; 

} 

$oForm->tags 
({ 

M 1 friendsToTell' => $inputFields, 

Q 'numFriends' -> $numFriends, 

WsS ' ' ' 

\\. print $oCGI->header, $oForm->get; 

exit (0) ; 



in 



} 

sub display_thank_you { 
my $oCGI = shift; 
my $oCookie = shift; 
my $oForm = new XDrive :: Template 
({ 

1 language 1 -> $oCookie->getElement ( ' language 1 ) , 

? partner_code 1 ^> $oCookie->getElement ( 1 partner f ) , 
}); 

$oForm->load ( 1 tell_a_f riend t_y . thtml ' ) ; 

print $oCGI->header / $oForm->get; 
exit (0) ; 

} 
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###web_unauthorized.cgi 



ill 



; M 



# ! /usr/bin/perl 

# Written by Martin Hald <mhald@uci . edu> on Sat Feb 13, 1999 
# 

# Program for showing unauthorized information and allowing the users to 

# re-login and possibly showing them a "forgot your password?" link. 

use strict; 

use lib ($ENV{PERL_XDRIVE_LIB}) ; 

use CGI qw (header param) ; 

use CGI:: Carp qw (f atalsToBrowser) ; 

# use XDrive::CGI qw(:MAIN); 

use XDrive: : Client: .'Registration; 
use XDrive: : Template; 
use XDrive: : Error; 

exit &main; 

sub main 
{ 



-4 my $oCGI = CGI->new(); 

my $oLayout = new XDrive :: Template; 

; %j my $oContent = new XDrive: : Template; 

my $oNavigation = new XDrive :: Template; 



$oLayout~>partner { ' xdrv 1 ) ; 
$oContent->partner ( 1 xdrv ? ) ; 
$oNavigation->partner ( 'xdrv 1 ) ; 



$oLayout->load ( ' layout . thtml 1 ) ; 
$oNavigation->load ( T f ront_nav . thtml 1 ) ; 



## Get the error key 

my $sError = $oCGI->param ( 1 error 1 ) ; 

##now get the error message associated with that error 
my $oErr = new XDrive :: Error; 

my $message = $oErr~>ReturnMessageGivenCode ($sError) ; 

## Load the required template HTML files, 
my $oForm = new XDrive :: Template; 
$oForm->partner ( 1 xdrv T } ; 
$oForm->load ( "f ront^nav . thtml" ) ; 
$oContent->load ( "unauthorized. thtml" ) ; 

## Update the layout 
$oLayout->tags 
({ 

1 header_graphic 1 => f header_denied . gif 1 
}); 

## Update the content 
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$oContent->tags 
({ 

'error^message' $message 

} ) ; 

$oContent->clear () ; 

## Print out the HTML and exit 
$oLayout->tags 
({ 

'content' => $oContent->get, 
'navigation 1 => $oNavigation->get, 
'title' => 'Authorization Denied' 

>>; 

print header {), $oLayout->get ; 
return 0; 



-5 



d:\my documcnis\x-<trive\all cgi fites.toc.aj.doc 



146 of 148 



APPENDIX 2 



Windows Client Code 



Windows Client Code 



// Module: dlgShareAFile.h , 1 

// Module: dlgShareAFile.h 4 

// Module: xdBase64.cpp 6 

// Module: xdBase64.h 1 1 

// Module: xdGlobals.h 13 

// Module: xdParseDate.h 18 

// Module: xdRegistry.h 19 

// Module: xdTokens.h 21 

// Module: xdTools.h 23 

M // Module: xdEngine.h 27 

q // Module: tdimsgtbl.h 30 

% j // Module: tdisock.h 32 

\| // Module: xdFilelO.cpp 55 

""•'tA 

1 ~ II Module: xdDebugger.cpp 60 
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// Module: dlgShareAFile.h 

// Subsystem: KnoWare Internet Engine (kwEngine.dll) 

// Contents: Declaration module for the dlgShareAFile class. 

// 

// 

// Copyright (c) 1999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1996-1999 by KnoWare(r), Inc. 

// All rights reserved. 

// 

// 

// 

#include "stdafx.h" 
#include <xdGlobals.h> 

Q #ifndef_VXD_SOURCE_ 

Q #include "resource.h" 

N #endif 

W #include "dlgShareAFile.h" 

^ #ifdef JMEBUG 

m #undef THIS JFILE 

q static char THIS_FILE[] = _FILE_; 

ni #endif 

: 

ftH. II — " 

S3 // Implementation 

nj // 

BEGIN_MESSAGE_MAP(dlgShareAFile, CDialog) 
//{ { AFX_MSG_MAP(dlgShareAFile) 
//}}AFX_MSG_MAP 

END_MESSAGE_MAPO 

// 

// Method: dlgShareAFileO 
// Purpose: Standard constructor 

// 

dlgShareAFile: :dlgShareAFile(CWnd* pParent /*=NLXL*/) 
: CDialog(dlgShareAFile::IDD, pParent) 

{ 

//{ { AFX_DATA_INIT(dlgShareAFile) 
m_sFileName = szEMPTY; 
msFileDescription = szEMPTY; 
m_sEmailMessage = szEMPTY; 
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msEmailSubject = szEMPTY; 
m_sEmailO = szEMPTY; 
msEmaill = szEMPTY; 
m_sEmail2 = szEMPTY; 
m_sEmail3 = szEMPTY; 
m_sEmail4 = szEMPTY; 
//} } AFXDATAINIT 
}//EndofdlgShareAFileO 

// 

// Method: DoDataExchange() 

// Purpose: Standard data exchange handler 

// 

void dlgShareAFile::DoDataExchange(CDataExchange* pDX) 
{ 

CDialog : :DoDataExchange(pDX); 
//{ { AFX_DATA_MAP(dlgShareAFile) 
DDX_Text(pDX, IDC_SHARE_FILENAME, m_sFileName); 
DDX_Text(pDX, IDC_SHARE_FILEDESC, m sFileDescription); 
DDX_Text(pDX, IDC_SHARE_EMAILMSG, m_sEmailMessage); 
DDX_Text(pDX, IDC_SHARE_EMAILSUB, m sEmailSubject); 
DDX_Text(pDX, IDC_SHARE_EMAIL1, m_sEmailO); 
DDX_Text(pDX, IDC_SHARE_EMAIL2, m_sEmaill); 
DDX_Text(pDX, IDC_SHARE_EMAIL3, m_sEmail2); 
DDX_Text(pDX, IDC_SHARE_EMAIL4, m_sEmail3); 
DDX_Text(pDX, IDC_SHARE_EMAIL5, m_sEmail4); 
//} }AFX_DATA_MAP 
} // End of DoDataExchangeQ 



// Method: OnInitDialog() 

// Purpose: Called to initialize the contents of the dialog 

// 

BOOL dlgShareAFile::OnInitDialogO 
{ 

CDialog: :OnInitDialog(); 
UpdateData(FALSE); 

return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 
} // End of OnInitDialog() 

// 

// Method: OnOKO 

// Purpose: Called to close out the dialog. 

// 
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void dlgShareAFile::OnOK() 

{ 

UpdateData(TRUE); 
CDialog::OnOK(); 
}//EndofOnOK0 
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// 

// Module: dlgShareAFile.h 

// Subsystem: KnoWare Internet Engine (kwEngine.dll) 

// Contents: Declaration module for the dlgShareAFile class. 

// 

// 

// Copyright (c) 1999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1996-1999 by KnoWare(r), Inc. 

// All rights reserved. 

// 

// 

// 

#if !defined(_INC_DLGSHAREAFILE_H_) 
#define _INC_DLGSHAREAFILE_H_ 

M #if_MSC_VER> 1000 

Q #pragma once 

Q #endif//_MSC_VER> 1000 

W #imdef VXD SOURCE 

\:.. 3 — — ~ 

1 #include "resource.h" 

1 #endif 

%* #ifiidef_VXD_SOURCE_ 



// dlgShareAFile dialog class 

// 

class dlgShareAFile : public CDialog 

{ 

public: 

dlgShareAFile(C Wnd* pParent = NULL); // standard constructor 

//{ { AFX J)ATA(dlgShareAFile) 
enum { IDD = IDD_SHARE }; 
CString m_sFileName; 
CString m_sFileDescription; 
CString m_sEmailMessage; 
CString m_sEmailSubject; 
CString m_sEmail0; 
CString m_sEmail 1 ; 
CString m_sEmail2; 
CString m_sEmail3; 
CString m_sEmail4; 
//}}AFX_DATA 
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//{ {AFX_VIRTUAL(dlgShareAFile) 
protected: 

virtual void DoDataExchange(CDataExchange* pDX); // DDX/DDV support 
//}}AFX_VIRTUAL 

protected: 

//{ { AFX_MSG(dlgShareAFile) 
virtual BOOL OnInitDialog(); 
virtual void OnOKO; 
//}}AFX_MSG 

DECLARE_MESSAGE_MAPO 

}; 

//{ { AFX_INSERT_LOC ATION} } 

// Microsoft Visual C++ will insert additional declarations immediately before the 
previous line. 

#endif 

#endif // !defmedC_INC_DLGSHAREAFILE_HJ 
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// 

// Module: xdBase64.cpp 

// Subsystem: X:drive Client Engine (xdEngine.dll) 

// Contents: Implementation module for the xdBase64 class 

// 

// 

// Copyright (c) 1999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1996-1999 by KnoWare(r), Inc. 

// All rights reserved. 

// 

// 

// 

#include "stdafx.h" 
#include "xdBase64.h" 

#ifdef_DEBUG 

#undef THIS_FILE 

static char THIS_FILE[]=_FILE_; 

#endif 

#ifdef_VXD_SOURCE_ 

#include <xdEngine.h> 

#define TRACE DEBUGDPRINTF 

#endif 

// Static Member Initializers 

// 

// The 7-bit alphabet used to encode binary information 

CString xdBase64::m_sBase64 Alphabet = 

_T( 

' ABCDEFGHIJKLMNOPQRSTWWXYZabcdefghijklmnopqrstuvwxyzO 1 23456789+/' 

); 

int xdBase64::m_nMask[] = { 0, 1, 3, 7, 15, 31, 63, 127, 255 }; 

// 

// Method: xdBase64() 

// Purpose: Standard Constructor 

// 

xdBase64::xdBase64 ( void ) 
{ 

} // End of xdBase640 

// 

// Method: ~xdBase64Q 
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// Purpose: Standard destructor 

// 

xdBase6,4 : :~xdBase64() 
{ 

}//End of~xdBase64() 



rij 



// 

// Method: Encode() 

// Purpose: Encodes a string 

// 

CString xdBase64::Encode(LPCTSTR szEncoding, int nSize) 
{ 

CString sOutput = _T( "" ); 
int nNumBits = 6; 
UINT nDigit; 
int lp = 0; 

ASSERT( szEncoding !=NULL ); 
if( szEncoding == NULL ) 

return sOutput; 
m_szlnput = szEncoding; 
m_nInputSize = nSize; 



m_nBitsRemaining = 0; 
□ nDigit = read_bits( nNumBits, &nNumBits, lp ); 

W while( nNumBits > 0 ) 

u { 

J, sOutput += m_sBase64Alphabet[ (int)nDigit ]; 

nDigit = read_bits( nNumBits, &nNumBits, lp ); 

> 

// Pad with '=' as per RFC 1521 
while( sOutput.GetLength0 % 4 != 0 ) 
{ 

sOutput += '='; 

} 

return sOutput; 
} //End of Encode() 

// . 

// Method: Decode() 
// Purpose: Decodes data 

// Notes: The size of the output buffer must not be less than 3/4 the 
// size of the input buffer. For simplicity, make them the same 

// size. 

// 

int xdBase64::Decode(LPCTSTR szDecoding, LPTSTR szOutput) 
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{ 

CString slnput; 
int c, lp =0; 

int nDigit; 
CString strDecode; 

int* pDecode = (int*)strDecode.GetBuffer(256*sizeof(int)); 

ASSERT( szDecoding != NULL ); 
ASSERT( szOutput != NULL ); 
if( szOutput = NULL ) 

return 0; 
if( szDecoding — NULL ) 

return 0; 
slnput = szDecoding; 
if( slnputGetLengthO == 0 ) 

return 0; 

// Build Decode Table 

// 

for( int i = 0; i < 256; i++ ) 

pDecode[i] = -2; // Illegal digit 
for( i=0; i < 64; i++ ) 

{ 

pDecode[ m_sBase64Alphabet[ i ] ] = i; 

pDecodef m_sBase64 Alphabet} i ] | 0x80 ] = i; // Ignore 8th bit 

pDecode['=' ] = -l; 

pDecodef '=' | 0x80 ] = -!;// Ignore MIME padding char 



// Clear the output buffer 

memset( szOutput, 0, sInput.GetLength() + 1 ); 

// Decode the Input 

// 

for( lp = 0, i = 0; lp < sInput.GetLength(); lp++ ) 
{ 

c = slnput[ lp ]; 

nDigit = pDecodef c & 0x7F ]; 

if( nDigit < -1 ) 

{ 

return 0; 

} 

else if( nDigit >=0) 

// i (index into output) is incremented by write_bits() 
write_bits( nDigit & 0x3F, 6, szOutput, i ); 
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return i; 
} //EndofDecodeO 

// 

// Method: read_bits() 
// Purpose: dunno 

// 

UINT xdBase64::read_bits(int nNumBits, int * pBitsRead, int& lp) 
{ 

ULONG IScratch; 

while( ( m_nBitsRemaining < nNumBits ) && 
( lp < m_nInputSize ) ) 

{ 

int c = m_szlnput[ lp++ ]; 
mJBitStorage «= 8; 
mJBitStorage |= (c & Oxff); 

m_nBitsRemaining += 8; 

} 

if( m_nBitsRemaining < nNumBits ) 
{ 

IScratch = mJBitStorage « ( nNumBits - m_nBitsRemaining ); 
*pBitsRead = m_nBitsRemaining; 
m_nBitsRemaining = 0; 

else 

{ 

IScratch = mJBitStorage » ( m_nBitsRemaining - nNumBits ); 
*pBitsRead = nNumBits; 
m_nBitsRemaining -= nNumBits; 

} 

return (UINT)lScratch & m_nMask[nNumBits]; 
} //Endofread_bits() 

// 

// Method: write_bits() 
// Purpose: dunno 

// 

void xdBase64::write_bits ( UINT nBits, int nNumBits, LPTSTR szOutput, int& i ) 
{ 

UINT nScratch; 

mJBitStorage = (mJBitStorage « nNumBits) | nBits; 
m_nBitsRemaining += nNumBits; 
while( m_nB itsRemaining > 7 ) 

{ 

nScratch = mJBitStorage » (m_nBitsRemaining - 8); 
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szOutput[ i++ ] = (TCHAR)(nScratch & OxFF); 
m_nBitsRemaining -= 8; 

} 

}//End ofwrite_bits() 
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// 
// 
// 
// 
// 
// 
// 
// 
// 
// 



Module: xdBase64.h 

Subsystem: X:drive Client Engine (xdEngine.dll) 
Contents: Declaration module for the xdBase64 class. 



Copyright (c) 1999 by X:drive(tm), Inc. 

Portions Copyright (c) 1996-1999 by KnoWare(r), Inc. 

All rights reserved. 



#if !defmedCINC_XDBASE64_HJ 
#define _INC_XDBASE64_H_ 

#ifdef_VXD_SOURCE_ 

#include <xdCString.h> 

#endif 

#if_MSC_VER>=1000 
#pragma once 

#endif//_MSC_VER>= 1000 

// 

// xdBase64 encoder class 

// 

class xdBase64 
{ 

public: 

xdBase64 ( void ); 
virtual ~xdBase64 ( void ); 

virtual int Decode ( LPCTSTR szDecoding, LPTSTR szOutput ); 

virtual CString Encode ( LPCTSTR szEncoding, int nSize ); 



protected: 
void 

); 

UINT 



write_bits ( UINT nBits, int nNumBts, LPTSTR szOutput, int& lp 



read_bits ( int nNumBits, int* pBitsRead, int& lp ); 



protected: 
int 
int 



m_nInputSize; 
m_nBitsRemaining; 
m_lBitStorage; 
m_szlnput; 



ULONG 
LPCTSTR 
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static int m_nMask[]; 

static CString m_sBase64Alphabet; 

}; 

#endif // !definedQNC_XDBASE64HJ 
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II Module: xdGlobals.h 

// Subsystem: X:drive 

// Contents: Global definitions used throughout the system 

// 

// 

// Copyright (c) 1999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1996-1999 by KnoWare(r), Inc. 

// All rights reserved. 

// 

// 

// 

#imdef_INC_XDGLOBALS_H_ 
^define _INC_XDGLOBALS_H_ 

#ifdef VXD SOURCE 



: >SK? 



// 

// This HodgePodge helps us to be able to compile all of our code 
// under Ring-3 and Ring-0 without too much modification. 

// 

#imdefUSE_NDIS 

#defineUSE_NDIS 

#endif 



#include <vtoolscp.h> 



// VToolsD main header file 



#imdefLPCTSTR 

typedefchar TCHAR; 
typedef unsigned char_TUCHAR; 
typedef const TCHAR* LPCTSTR; 



typedef TCHAR* 

typedef unsigned char BYTE; 

typedef BYTE* 

typedef DSKTLS YSTEMTIME 
typedef HANDLE 
#define_T(x) (x) 



LPTSTR; 

LPBYTE; 

SYSTEMTIME; 

HINSTANCE; 



#endif 



#imdef B ASEDCODE 

#define BASED_CODE 

#endif 



#imdef ENVALIDHANDLEVALUE 

#define INVALID_HANDLE_VALUE (HANDLE)-! 
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#endif 



#define _tcsstr strstr // Standard Unicode mappings 

#defme_tcslen strlen 
#define _tcscpy strcpy 
#defme Jcsrchr strrchr 
#define _tcscat strcat 
#defme _ttoi atoi 
#define _ttol atol 
#define _tcsrev strrev 
#define tcschr strchr 
#define Jcsncpy strncpy 
#define _tcspbrk strpbrk 
#define _stprintf sprintf 
#define Jcslwr strlwr 
#define _tcsupr strupr 
#define_tcsicmp stricmp 
#define Jcscmp strcmp 
#defme Jcscoll strcmp 
#defme _istdigit isdigit 
// #define ASSERT Assert 



typedef HANDLE HWND; 

#endif 

// 

// Setup a whole bunch of constants that we can use throughout the systems 



#defmechNL _T(V) 

#define chCOMMA _T(7) 

#define chDOSSLASH _T('\V) 

#define chUNDCSLASH _T(7') 

#definechQUOTE _T(*\") 

#define chDQUOTE _TC\"') 

#define chPERIOD _T('.') 

#defme chBAR _T(T) 

#define chTAB _T('\t') 

#defme chCR _T(V) 

#defme chSPACE _T(' ') 

#define chCOLON _TC:') 

#define chSEMICOLON _T(V) 

#define chDASH _T('-') 

#define chPLUS _T('+') 

#define chPERCENT _T('%') 

#define chOPENBRACKET _T('[') 

#define chCLOSEBRACKET _T(']') 

#define chNUL _T('\0') 
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#definechZERO _T('0') 

#define chONE _T(*1') 

#definechTWO _T(*2') 

#definechTHREE _T('3') 

#define chFOUR _T('4') 

#defme chFIVE _T('5') 

#define chSIX _T('6') 

#definechSEVEN _T(T) 

#define chEIGHT _T('8') 

#define chNINE _T('9') 

#define chOPENPAREN _T('C) 
#define chCLOSEPAREN _T(')') 

#definechAT _T('@') 



#define szNL _T( M \n") 

#define szCOMMA _T(",") 

#define szDOSSLASH _T("\\") 

#define szUNIXSLASH _T(T) 

#define szQUOTE _T( ) 

#define szDQUOTE _T("V") 

#define szPERIOD _T( n .") 

#define szBAR JCT) 

#define szTAB _T("\t") 

#define szCR _T('V) 

i #define szSPACE _T(" ") 

#define szCOLON _T(":") 

#define szSEMICOLON _T(";") 

#define szDASH _T( M -") 

#define szPLUS _T("+") 

#define szOPENBRACKET _T("[") 
#define szCLOSEBRACKET_T("]") 

#defme szAT _T("@") 

#defme szEMPTY _T("") 

#define szCURRENTDIR _T(".") 

#defme szPARENTDIR _T("..") 

#define szFTP_DOT _T("ftp.") 

#define szFTP_SLASH _T("ftp://") 

#defme szOPENPAREN _T("( M ) 

#define szCLOSEPAREN _T(")") 

#defmeXD_CACHE_BASEDIR _T("xdcache") 
#define XD_LOGFILE_NP _T("xdrive.log") 
#define XD LOGFE.E VXD _T("xdrivevxd.log") 



// 

// We need to define the scope of values which will be used in the system. 
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// They are defined here since we need to read/write these to the registry. 

// 



II 

II General defines 

// 

#define XD_LEN_32 32 
#defme XD_LEN_64 64 
#defmeXD_LEN_128 128 
#defmeXD_LEN_256 256 
#defmeXD_LEN_512 512 
#define XD_LEN_1 024 1 024 

#define XD_LEN_2048 2048 

// 

// these program IDs are also the 1st two digits of the registration number 

// 

#define XD_PROGID_XDRIVE 0x53 // {DB2 1 1 2AD-0000-0000-0053- 
000004281965} 



U1 // 

%i II IN will generate a directory listing and the local file that contains 

S*i // that information will have an extension of ' .&kT . For example, if 

y! // IN/FND does a directory listing of ftp.microsoft.com/softlib/mslfiles, 

y // it will place the raw directory listing in the in the local IN cache 

g // directory (which is currently defined as hanging off of the same 

ill // directory where IN is located) as 

// 

// c:\xdCache\ftp.microsoft.com\root.softlib.mslfiles.ls 
// 

// and the parsed FND formatted data will be placed into 

// 

//c:\xdCache\ftp.microsoft.com\root.softlib.mslfiles.fnd 
// 

// the .fnd file is parsed out to produce the information returned as a 
// result of the FINDFIRST()/FINDNEXT() calls to the NP. 

// 

#defineXD_FILEEXT_LS _T(".ls") 
#defineXD_FILEEXT_XDR _T(".fnd M ) 

// 

// Here is our Network Provider Name 

// 

#defineXD_PROVIDER_NAME _T("Xdrive") 
#defineXD PROVIDER NETID 0x00120000 
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#endif // _INC_XDGLOBALS_H_ 
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// 



// Module: xdParseDate.h 

// Subsystem: X:drive Tools Library (xdTools.dll) 

// Contents: Declaration module for the CParseDate utility class 

// 

// 

// Copyright (c) 1999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1996-1999 by KnoWare(r), Inc. 

// All rights reserved. 

// 

// 

// 

#imdef _INC_XDP ARSED ATE_H_ 
#define _INC_XDPARSEDATE_H_ 

#include <xdTokens.h> 



class XDTOOLS_PUBLIC CParseDate 
{ 



public: 



CParseDate ( void ); 
-CParseDate ( void ); 



BOOL 



Parse (LPCTSTRs); 



int 
int 
int 
int 
int 
int 

TCHAR 
TCHAR 
TCHAR 



miYear; 

m_iMonth; 

miDay; 

m_iHour; 

m_iMinute; 

m_iSecond; 

m_szDate[64]; 

m_szTime[32]; 

m_szOrig[64]; 



private: 



BOOL isNUM ( LPCTSTR s ); 

BOOL isDOW ( LPCTSTR s ); 
xdTokens mtokens; 



>; 

#endif 
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// Module: xdRegistry.h 

// Subsystem: X:drive Tools Library (xdTools.dll) 

// Contents: Declaration module for the xdRegistry utility class 

// 

// 

// Copyright (c) 1999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1996-1999 by KnoWare(r), Inc. 

// All rights reserved. 

// 

// 

#ifhdef _INC_XDREGISTRY_H_ 
#define _INC_XDREGISTRY_H_ 

g #if_MSC_VER>=1000 
#pragma once 

#endif//_MSC_VER>=1000 

w 

%l #include <xdGlobals.h> // X:drive system wide globals 

Sj #include <xdTools.h> // X:drive Tools Related 

; rs 

// 

II xdRegistry 

[U //the registry class encapsulates the regitry functions. You must open 

// at least a hive in the constructor, then you can optionally open 
//a subkey & read/write information to the registry. All methods will return 

51 // true upon successful completion, false will be returned if an error 

// has occurred. 
// 

class XDTOOLS J>UBLIC xdRegistry 
{ 

public: 

xdRegistryO; 
-xdRegistryO; 



// public interface 

// 

public: 

BOOL RegOpenRead(HKEYhHive ? LPCTSTRszSubKey); 
BOOL RegOpenWrite ( HKEY hHive, LPCTSTR szSubKey ); 
BOOL RegClose(void); 

BOOL RegDeleteKey ( HKEY hHive, LPCTSTR szSubKey ); 

BOOL RegDeleteValue ( LPCTSTR szVal ); 
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BOOL RegEnumKey ( int i, LPCTSTR szKeyName, UINT 

uiLenWithNull ); 

BOOL RegEnumVal ( int i, LPCTSTR szValName, UINT 

uiLenWithNull, LPCTSTR szValData, UINT uiDataLenWithNull ); 

BOOL RegEnumStr ( int i, LPCTSTR szVal, UINT uiLenWithNull ); 

BOOL RegGetStr ( LPCTSTR sName, LPCTSTR szVal, UINT 
uiLenWithNull); 
BOOL RegPutStr ( LPCTSTR sName, LPCTSTR szVal ); 

BOOL " RegPutBin( LPCTSTR sName, BYTE* pBuffer, UINT uiLen); 

BOOL RegGetNum ( LPCTSTR sName, BOOL& bVal ); 

BOOL RegGetNum ( LPCTSTR sName, WORD& wVal ); 

BOOL RegGetNum ( LPCTSTR sName, DWORD& dwVal ); 

BOOL RegGetNum ( LPCTSTR sName, UINT& uiVal ); 

BOOL RegPutNum ( LPCTSTR sName, DWORD dwVal ); 

LONG RegGetLastError ( void ); 

private: 

HKEY m_hKey; // the current open hive 
LONG mJRetCode; // the last return code 

};//EndofxdRegistry 

#endif // _INC_XDREGISTRY_H_ 
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// 



// Module: xdTokens.h 

// Subsystem: X:drive Tools Library (xdTools.dll) 

// Contents: Declaration module for xdTokens utility class 

// 

// 

// Copyright (c) 1999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1996-1999 by KnoWare(r), Inc. 

// All rights reserved. 

// 

// 

// 

#ifhdef_INC_XDTOKENS_H_ 
#define _INC_XDTOKENS_H_ 

M #if_MSC_VER>=1000 

Q #pragma once 

Cj #endif//_MSC_VER>=1000 

* #include <xdGlobals.h> II X:drive system wide globals 

#include <xdTools.h> // X:drive Tools Related 

f #define XD_MAX_TOKENS 1024 

nj a 

M II xdTokens 

M // This class is a big worker class, its used to parse strings into 

Q // tokens or substrings. Strings are parsed by supplying a string of 

^1 // characters which will be used to parse out the string. 

// 

class XDTOOLS_PUBLIC xdTokens 
{ 

public: 

xdTokens(LPCTSTR pTokens = NULL); 
~xdTokens(); 

// 

// Public Interface 

// 

public: 

int 

pTokens=NULL); 
int 

LPCTSTR 



Parse(int iNumToParse, LPCTSTR pString, LPCTSTR 

Parse(LPCTSTR pString, LPCTSTR pTokens=NULL); 
operatorn(int ilndex); 
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II 

II Private Members 

II 

private: 

LPCTSTR 
int 

LPTSTR 
LPTSTR 
LPTSTR 
};//EndofxdTokens 



*mjpTok; 

m_iNumParsed; 

m_szWorkString; 

m_szTokens; 

m_pWorkString; 



#endif// INC XDTOKENS_H_ 



M 
ill 

!1 

ill 
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// 



// Module: xdTools.h 

// Subsystem: X:drive Tools Library (xdTools.dll) 
// Contents: Main header file for the xdTools library 

// 

// 

// Copyright (c) 1999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1996-1999 by KnoWare(r), Inc. 

// All rights reserved. 

// 

// 

#imdef_INC_XDTOOLS_H_ 
#define _INC_XDTOOLS_H_ 

M #if_MSC_VER>=1000 

Q #pragma once 

□ #endif // _MSC_VER >= 1 000 

W #include <xdGlobals.h> // X:drive system wide globals 

N #ifdef_VXDjSOURCE_ 
2 #include <xdCString.h> 

m #endif 

L #pragma warning (disable : 4 1 00) 

r\\ #pragma warning (disable : 4201) 

Q // The following code block will insure the proper resolution of any 

fU // API functions (and classes) which are exposed from the XDTOOLS library. 

// When compiling the XDTOOLS library source code, make sure that the 
// following #define is defined in the project settings (both debug & release). 
// This will cause any classes and/or API functions defined as to 
// be exported to the LIB file. If you are USING the library by linking to 
// the XDTOOLS.LIB or XDTOOLSD.LIB import libraries, then ignore the 
// following #define's for 
// 

#ifdef_XDTOOLS_SOURCE_ 

#define XDTOOLS_PUBLIC _declspec( dllexport ) 

#eise 

#define XDTOOLS_PUBLIC // _declspec( dllimport ) 
#endif // _XDTOOLS_SOURCE_ 

// 

// If we are debugging & we trap an exception, we will display it 
// in a message box, otherwise in release mode, we wont. 
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// 

#ifdef_DEBUG 

#define XDTRACE(x) AfxMessageBox(x) 

$clsc 

#define XDTRACE(x) TRACE0(x) 

#endif 



// 

// XDDATE API (Date Functions) 

// 

XDTOOLS PUBLIC int XDDATEMonthNum ( LPTSTR szMonth ); 



// 

// XDSTR API (String Functions) 

// 

XDTOOLS_PUBLIC LPTSTR 
XDTOOLS_PUBLIC LPTSTR 
XDTOOLS_PUBLIC LPTSTR 
XDTOOLS_PUBLIC LPTSTR 

); 

XDTOOLS_PUBLIC LPTSTR 
XDTOOLS_PUBLIC LPTSTR 
XDTOOLS PUBLIC LPTSTR 



XDSTR_Squish ( LPTSTR p ); 
XDSTR_StripChar ( LPTSTR p, TCHAR c ); 
XDSTR_DirSlashAdd ( LPTSTR sz, TCHAR c ); 
XDSTR_DirSlashRemove ( LPTSTR sz, TCHAR c 

XDSTR_TrimRight ( LPTSTR ); 
XDSTR_TrimLeft ( LPTSTR ); 
XDSTRTrim ( LPTSTR ); 



XDTOOLS_PUBLIC BOOL XDAPI_CreatePath ( LPCTSTR ); // calls 
CreateDirectoryQ to make a path. 



// 

// Stuff for messge boxes 

// 

#ifndef_VXD_SOURCE_ 

int XDTOOLS_PUBLIC XD_MSG ( LPCTSTR szText, UINT 

uiMsgFlags ); 

int XDTOOLS_PUBLIC XD_QUESTION ( LPCTSTR szText, UINT 

uiMsgFlags ); 

LPCTSTR XDTOOLS_PUBLIC XDTEXT ( HINSTANCE h, UINT uiResId ); 
// LOADS A RESOURCE! 

BOOL XD_DoHelp ( LPHELPINFO ); 
void XD_DoHelpContext ( CWnd* ); 

#endif 



// 

// the calling object needs to supply the resource 

// handle for loading the string. So set up a stupid macro 

// that will automatically supply this! 

// 

#define XD_LOADSTRING(x) XD_TEXT(AfxGetResourceHandle(),(x)) 
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// 

//DEBUGGING STUFF 

// 

Mefine CATCH_MSG _T("Caught Exception in File %s, Line %d\n\n") 
#ifdef_VXD_SOURCE_ 

#defme XDCATCH dprintf(CATCH_MSG, _T(_FILE_J, _LINE_ ) 

$elsc 

#defineXDCATCH { CString s; s.Format(CATCH_MSG, _TC_FILE_), 

LINE ); AfxMessageBox(s); } 

#endif 



// 

// Ring 0 File I/O 

// 

#ifdef_VXD_SOURCE_ 
#define GENERICREAD 
#define GENERICWRITE 
#defineCREATE_NEW 
#define CREATE_ALWAYS 
^define OPEN_EXISTING 
#define OPEN_ALWAYS 
#define TRUNCATEEXISTING 
#define FILE_SHARE_READ 
#define FILE_SHARE_WRITE 
#defineFILE SHARE DELETE 



(0x80000000) /* from WINNT.H */ 
(0x40000000) /* from WINNT.H */ 
1 

2 
3 

4 

5 

0x00000001 
0x00000002 

0x00000004 // not supported 



HANDLE CreateFile ( LPCTSTR lpFileName, // pointer to name of the file 

DWORD dwDesiredAccess, // access (read- 



DWORD dwShareMode, 
void* IpSecAtt, 



// share mode 



// 

DWORD dwCreateFlags, // how to 

DWORD dwFlagsAndAttributes, // file 



write) mode 

pointer to security attributes 
create 
attributes 

HANDLE); 
BOOL CloseHandle ( HANDLE hFile ); 

BOOL ReadFile ( HANDLE hFile, // handle of file to read 

void* lpBuflfer, // pointer to buffer that receives data 

DWORD nNumberOfBytesToRead, // number of bytes to 

read 

DWORD* lpNumberOfBytesRead, // pointer to number of 

byte's read 

void* lpOverlapped); // pointer to structure for data 
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BOOL ReadFileLine ( HANDLE hFile, 



BYTE* lpBuffer, 



// handle of file to read 

// pointer to 



buffer that receives data 



DWORD dwBytesToRead, 



//number of bytes to 



read 



DWORD* dwBytesRead, 



// pointer to 



number of bytes read 



DWORD* dwOffset); 



// pointer to structure 



for data 



BOOL WriteFile ( HANDLE hFile, LPCTSTR lpBuffer, DWORD dwBytesTo Write, 

DWORD* pBytesWritten, void* p); 

DWORD GetFileSize ( HANDLE hFile, DWORD* pdwHigh ); 
#endif 

#endif // !defmedCINC_XDTOOLS_HJ 
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// 

// Module: xdEngine.h 

// Subsystem: X:drive Client Engine (xdEngine.dll) 

// Contents: Main include file for the xdEngine subsystem 

// 

// 

// Copyright (c) 1999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1996-1999 by KnoWare(r), Inc. 

// All rights reserved. 

// 

// 

// 

#ifhdef _INC_XDRI VE_ENGINE_H_ 
#define _INC_XDRIVE_ENGINE_H_ 

#if_MSC_VER>=1000 
#pragma once 

#endif//_MSC_VER>= 1000 

#pragma warning (disable : 4100) 
pragma warning (disable : 4201) 

#ifdef_XDENGINE_SOURCE_ 

#define XD API_PUBLIC _declspec( dllexport ) 

#else 

#defme XDAPI_PUBLIC // _declspec( dllimport ) 
#endif // _XDENGINE_SOURCE_ 

#pragma pack(l) // byte pack this thing! 

#include <xdGlobals.h> 

// 

// XDDIRENTRY - directory listing item 

// 

// The following structure is used to hold an object in the file listing 

// file. Xdrive will generate the file list for the directory and store it 

// in the cache directory. That file will contain 

// a list of record structures of this type. The .mnd file is generated 

// based upon the FTP server specific format in the .idx file in the same 

// cache directory. 

// 

typedef struct _xd_direntry_ 
{ 

USHORT cb; // class size, MUST BE FIRST! ! ! ! 
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DWORD dwFileAttributes; 

FILETIME ftCreationTime; 
FILETIME ftLastAccessTime; 
FILETIME ftLastWriteTime; 



DWORD 
DWORD 

TCHAR 
TCHAR 
BYTE 
BYTE 
BYTE 



nFileSizeHigh; 

nFileSizeLow; 
cFileName[ XD_LEN_512 ]; 

m_szObPerms [ XD_LEN_32 + 1 ]; 
m_bObOwnerPerms[4]; 
m_bObGroupPerms[4] ; 
m_bObWorldPerms[4] ; 



} XD_DIRENTRY, * LPXDDIRENTRY; 
#pragma packO 

// 

// Return codes 

// 

typedef UINT XD RETCODE; 

#defineXD_SUCCESS 
#defineXD_CANCEL 

#defme XDERRCONNECTFAILED (int)2 

#define XD_ERR_LOGINF AILED (int)3 

#defme XDERRCONNECTREFUSED (int)5 

#defineXD_ERR_CANTRESOLVEHOST (int)6 

#define XD ERR SERVERUPGRADING (int)7 



(int)0 
(int)l 



// socket connect failed 
// bad username/pwd 
// socket connect refused 
// cant resolve host 
// upgrading our servers 



#define XD ERR OTHER 



(int)-l 



// 



// The following constants are used in the notification structure. 

// 

typedef enum 



{ 

XDNOTIFYIDLE =0, 
XD_NOTIFY_STATUS_MSG = 1000, 
XDNOTIFYXFERDATADN = 1001, 
XD_NOTIFY_XFERDATA_UP = 1002, 
XDNOTIFYQUOTA 

quota 

XDNOTIFYSTART 
operation 

XD_NOTIFY_STOP = 1005 

} XD_NOTIFY_CODE; 



= 1003, 



// nothing happening here 
// status msg 
// downloading 
// uploading 

// Update the 



= 1004, 



//Start an 



// Stop an operation 



d \my documents\x-driv<AfirsUndlast30 toe doc 



28 of 68 



// 

// XDJNfOTIFY - This is our notification structure. The http engine 
// will use this structure to pass status information back to the 
// invoking method, 

// 

#pragma pack(l) 

typedef struct _xd_notification_ 

{ 

int mJNotifyType; 

TCHAR m_szMessage [ 1024 + sizeof(TCHAR) ]; 

// 

// used for send/receive 

// 

ULONG m_dwStartTime; // GetTickCountO/1000 

ULONG m_dwCurrentTime; //GetTickCountO/1000 

DWORD m_dwCurrentBytes; 
DWORD m_dwTotalBytes; 

TCHAR m_szLocalFileName [ MAX_PATH + sizeof(TCHAR) ]; 

TCHAR m_szRemoteFileName [ MAXJPATH + sizeof(TCHAR) ]; 

} XDNOTIFY, *LPXD_NOTIFY; 
#pragma packO 

#define XD_NOTIFY_MAX 50 
#endif // _INC_XDRIVE_ENGINE_H_ 
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// 

// Module: tdimsgtbl.h 

// Subsystem: X:drive Client Engine (xdEngine.dll) 
// Contents: TDI Error table. 

// 

// 

// Copyright (c) 1999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1996-1999 by River Front Software 

// All rights reserved. 

// 

// 

#ifndef TDIMSGTBL_H 

#define _TDIMSGTBL_H 

typedef struct 
{ 

TDI_STATUS Status; 
int WinStatus; 
char *szMsg; 
} INETTDIMSG; 

INETTDIMSG TdiMsgTbl[] = 

{TDI_SUCCESS, ERROR_SUCCESS, "TDI Success" } , 
{TDI_NO_RESOURCES, ERRORBADCOMMAND, "No resources."}, 
{TDI_ADDR_IN_USE, ERRORJBAD_COMMAND, "Address already in 

use."}, 

{TDI_BAD_ADDR ERROR_BAD_COMMAND, "Address given is bad."}, 
{TDINOFREEADDR ERROR_BAD_COMMAND, "No addresses 
available."}, 

{TDI_ADDR_INVALID, ERROR_BAD_COMMAND, "Address object is 
invalid."}, 

{TDI_ADDR_DELETED, ERROR_BAD_COMMAND, "Address object was 
deleted."}, 

{TDI_BUFFER_OVERFLOW, ERROR BAD COMMAND, "Buffer 
overflowed."}, 

{TDIBADEVENTTYPE, ERROR BAD COMMAND, "Bad event type." } , 
{TDI_BAD_OPTION, ERROR BAD COMMAND, "Bad option or length."}, 
{TDI CONN REFUSED, ERROR BAD COMMAND, "Connection was 
refused."}, 

{TDI_INVALID_CONNECTION, ERROR_BAD_COMMAND, "Invalid 
connection."}, 
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{TDIALREADYASSOCIATED, ERRORBADCOMMAND, "Connection 

already associated."}, 

{TDI_NOT_ASSOCIATED, ERROR BAD COMMAND, "Connection not 

associated."}, 

{TDI_CONNECTION_ACTIVE, ERROR BAD COMMAND, "Connection 
is still active."}, 

{TDI_CONNECTION_ABORTED, ERROR_BAD_COMMAND, "Connection 
was aborted."}, 

{TDI_CONNECTION_RESET, ERROR_BAD_COMMAND, "Connection was 
reset."}, 

'{TDI_TIMED_OUT, ERROR_BAD_COMMAND, "Connection timed out."}, 
{TDIGRACEFULDISC, ERROR BAD COMMAND, "Received a graceful 
disconnect."}, 

{TDI NOT ACCEPTED, ERROR BAD COMMAND, "Data not accepted."}, 
{TDI_MORE_PROCESSING, ERROR_BAD_COMMAND, "More processing 
required."}, 

{TDI INVALID STATE, ERROR BAD COMMAND, "TCB in an invalid 
state."}, 

'{TDI INVALID PARAMETER, ERROR_BAD_COMMAND, "An invalid 
parameter."}, 

{TDI DEST NET UNREACH, ERROR BAD COMMAND, "Destination net 
is unreachable."}, 

{TDI_DEST_HOST UNREACH, ERROR BAD COMMAND, "Dest. host is 
unreachable."}, 

{TDI DEST UNREACHABLE, ERROR BAD COMMAND, "Dest. is 
unreachable. "}, 

{TDI DEST PROT UNREACH, ERROR BAD COMMAND, "Destination 
protocol is unreachable."}, 

{TDI_DEST_PORT_UNREACH, ERROR_BAD_COMMAND, "Dest. port is 
unreachable."}, 

{TDI INVALID QUERY, ERROR_BAD_COMMAND, "Invalid query type 
specified."}, 

{TDI_REQ_ABORTED, ERROR BAD COMMAND, "Request was aborted 
for some reason."}, 

{TDI_BUFFER_TOO_SMALL, ERROR_BAD_COMMAND, "Buffer was too 
small."}, 

{TDI CANCELLED, ERROR BAD COMMAND, "The request was 
cancelled M ^ 

{ TDI BUFFER TOO BIG, ERROR BAD COMMAND, "Invalid request."}, 
{ ERROR SEM TIMEOUT, ERROR_SEM_TIMEOUT, "Timed out."}, 
{TDI PENDING, ERROR BAD COMMAND, "Pending"} 

}; 

#endif 
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// 



// Module: tdisock.h 

// Subsystem: X:drive Client Engine (xdEngine.dll) 
// Contents: TDI Socket header file. 

// 

// 

// Copyright (c) 1999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1996-1999 by River Front Software 

// All rights reserved. 

// 

// 

// 



#imdef_TDISOCK_H 
#define_TDISOCK_H 



Q #define TDISOCK_TIMEOUT 15000 

%| #define WSADESCRIPTION_LEN 256 

W #define WSASYS_STATUS_LEN 128 

N typedef short SHORT; 

N typedef unsigned short USHORT; 

y * typedef unsigned short ushort; 

" m typedef unsigned int uint; 

m typedef unsigned long ulong; 

Li typedef unsigned long ULONG; 

[1= typedef void (*CTEReqCmpltRtn)(void *Context, long FinalStatus, unsigned int 

Q ByteCount); 
fjj typedef unsigned char uchar; 

typedef struct WS AData { 

WORD wVersion; 
WORD wHighVersion; 

char szDescription[WSADESCRIPTION_LEN+l]; 
char szSystemStatus[WSASYS_STATUS_LEN+l]; 
unsigned short iMaxSockets; 
unsigned short iMaxUdpDg; 
char FAR * lpVendorlnfo; 
} WSADATA; 

typedef WS AD ATA FAR *LP WSADATA; 



#defineUSE_NDIS 1 
#include <vtoolscp.h> 
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#include <crtl.h> 
#undefUSE_NDIS 



#include <tdi.h> 
#include <vxdsvc.h> 
#include <tdivxd.h> 
#include <tdistat.h> 

#undef VTDI_Device_ID 
#include <vtdi.h> 



#define MAKELONG(a, b) ((LONG)(((WORD)(a)) | ((DWORD)((WORD)(b))) « 
16)) 

#defineLOWORD(l) ((W0RD)(1)) 

#define HIWORD(l) ((WORD)(((DWORD)(l) » 16) & OxFFFF)) 
#defineLOBYTE(w) ((BYTE)(w)) 

#define HIBYTE(w) ((BYTE)(((WORD)(w) » 8) & OxFF)) 
/* 

* Structures returned by network data base library, taken from the 

* BSD file netdb.h. All addresses are supplied in host order, and 

* returned in network order (suitable for use in system calls). 
V 

struct hostent { 

char FAR * hjiame; /* official name of host */ 

char FAR * FAR * h_aliases; /* alias list */ 

short h_addrtype; /* host address type */ 

short hjength; /* length of address */ 

char FAR * FAR * h_addr_list; /* list of addresses */ 
#define h_addr h_addr_list[0] /* address, for backward compat */ 

}; 

/***** Wait for semaphore flags */ 

#define WAIT_SEMA_FLAGS 0 //BLOCK_SVC_INTS | BLOCKPOLL 

/***** Macro to call wait on semaphore function */ 
#define SEMAPHORE_WAIT( hSem, nTimeout ) \ 

WaitOnSemaphore( s, hSem, #hSem, nTimeout ) 



/***** Checks for valid TDI status */ 

#define TDI_CHECKSTATUS(s) if ( (s) != TDI_SUCCESS ) \ 
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{ 

\ 

errdebug( 

DBG_log("ERROR - File: %s Line:%d TDI [%d] - %s\n", \ 

_FILE_, 

_LINE_, (s), MapTdiToString(s)); ); \ 

goto Exit; 
\ 

} 

/***** Destroys a semaphore */ 

#defme SEMAPHORE_SAFE_DESTROY(hSem) \ 

if(hSem) \ 

{ ^ 
vbsdebug( DBG_log("Destroy Semaphore %s", #hSem); ); \ 

UtilSemDestroy(hSem); \ 

hSem = 0; \ 

} 



/***** Signals a semaphore */ 

#defme SEMAPHORE_SAFE_SIGNAL(hSem) \ 

if(hSem) \ 

{ \ 

vbsdebug( DBG_log("*** Signal Semaphore %s", #hSem); ); 

\ 

vbsdebug( DBG_log_hex_long( hSem ); ); 

\ 

Signal_Semaphore_No_Switch( hSem ); 
\ 

} \ 
else \ 

{ \ 

vbsdebug( DBG_log("*** NO SEMAPHORE TO SIGNAL %s", 

#hSem); ); \ 

} 

/* 

* Basic system type definitions, taken from the BSD file sys/types.h. 
*/ 

typedef unsigned char u_char; 
typedef unsigned short u_short; 
typedef unsigned int u_int; 
typedef unsigned long u_long; 
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/* 

* Constants and structures defined by the internet system, 

* Per RFC 790, September 1981, taken from the BSD file netinet/in.h. 
*/ 

/* 

* Protocols 
*/ 



#define IPPROTO IP 


0 


/* dummy for IP */ 


#define IPPROTO ICMP 


1 


/* control message protocol */ 


#define IPPROTO IGMP 


2 


/* internet group management protocol */ 


#define IPPROTO GGP 


3 


/* gateway A 2 (deprecated) */ 


#define IPPROTO TCP 


6 


/*tcp*/ 


#define IPPROTO PUP 


12 


/* pup */ 


#defme IPPROTO UDP 


17 


/* user datagram protocol */ 


#define IPPROTO IDP 


22 


/* xns idp */ 


#define IPPROTO_ND 


77 


/* UNOFFICIAL net disk proto */ 


#define IPPROTO RAW 


255 


/* raw IP packet */ 


#define IPPROTO MAX 


256 





/* 

* Port/socket numbers: network standard functions 
*/ 

#defme IPPORT_ECHO 7 
#define IPPORT_DISCARD 9 
#define IPPORT_SYSTAT 1 1 
#define IPPORTDAYTIME 13 
#define IPPORTNETSTAT 15 
#define IPPORT_FTP 21 
#defme IPPORTTELNET 23 
#define IPPORT_SMTP 25 
#define IPPORTTIMESERVER 37 
#define IPPORT_NAMESERVER 42 
#define IPPORT_WHOIS 43 
#define IPPORT_MTP 57 

/* 

* Port/socket numbers: host specific functions 
*/ 

#define IPPORTTFTP 69 
#define IPPORT_RJE 77 
#define IPPORTFINGER 79 
#define IPPORTTTYLINK 87 
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#defme IPPORT_SUPDUP 95 



/* 

* UNIX TCP sockets 
*/ 

#define IPPORT_EXECSERVER 512 
#define IPPORTLOGINSERVER 513 
#define IPPORT_CMDSERVER 514 
#define IPPORT_EFSSERVER 520 

/* 

* UNIX UDP sockets 
*/ 

#define IPPORT_BIFFUDP 512 
#define IPPORT_WHOSERVER 5 1 3 
#define IPPORTROUTESERVER 520 

/* 520+1 also used */ 

/* 

* Ports < IPPORTRESERVED are reserved for 

* privileged processes (e.g. root). 
*/ 

#define IPPORTRESERVED 1024 
/* 

* Link numbers 
*/ 

#defmeIMPLINK_IP 155 
#define IMPLINK_LOWEXPER 156 
#define IMPLINKHIGHEXPER 158 

/* 

* Internet address (old style... should be updated) 
*/ 

struct in_addr { 
union { 

struct { u_char s_bl,s_b2,s_b3,s_b4; } S_un_b 
struct { u_short s_wl,s_w2; } S_un_w; 
u_long S_addr; 
} S_un; 
#define s_addr S_un.S_addr 

/* can be used for most tcp & ip code 
#define s_host S_un.S_un_b.s_b2 

/* host on imp */ 
#define s_net S_un.S_un_b.s_bl 
/* network */ 
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#defme s_imp S_un.S__un_w.s_w2 

/♦imp*/ 
#define s_impno S_un.S_un_b.s_b4 

/* imp # */ 
#define s_lh S_un.S_un_b.s_b3 

/* logical host */ 

}; 

#define htons(host) ( (((host) & Oxff) « 8) | ((host) » 8) ) 
ULONG htonl( ULONG hostlong ); 

I* 

* Definitions of bits in internet address integers. 

* On subnets, the decomposition of addresses to host and net parts 

* is done according to subnet mask, not the masks here. 
*/ 

#define IN_CLASSA(i) (((long)(i) & 0x80000000) = 0) 
#define INCLASSANET OxffOOOOOO 
#define IN_CLASSA_NSHIFT 24 
#defineIN_CLASSA_HOST OxOOffffff 
#define IN_CLASSA_MAX 128 

#define IN_CLASSB(i) (((long)(i) & OxcOOOOOOO) = 0x80000000) 
#define INCL AS SBNET OxffffOOOO 

// end first 30 pages aj 



int iMax = i; 

CString* pArray = new CStringfiMax]; 
i=0; 

while (rl .RegEnumKey(i++,szVal,dwCnt)) 

pArray[i-l] = szVal; 
rl.RegCloseO; 
for (i=0; i<iMax; i++) 

{ 

CString str = pArray[i]; 
CString strTmp; 

strTmp.FormatC_T("%s\\%s"),(LPCTSTR)szSubKey, 

(LPCTSTR)str); 

rl .RegDeleteKey(hHive,strTmp); 

} 

delete[] pArray; 

} 
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// 

// then Delete the key 

// 

mJRetCode = ::RegDeleteKey ( hffive, szSubKey ); 

#endif 

#ifiidef_VXD_SOURCE_ 
} 

catch(...) 

{ 

XDCATCH; 
bOK = FALSE; 

} 

#endif 

// 

// bOK is TRUE if ERROR_SUCCESS was returned 

// 

bOK = (ERROR_SUCCESS = mJRetCode); 

return bOK; 
}//EndofRegDelete() 



n // Method: RegCloseO 

m // Purpose: the the registry is open, close it. 

y& II 

M BOOL xdRegistry: :RegClose ( ) 

Q { 

m BOOL bOK = TRUE; 

#ifndef_VXD_SOURCE_ 
try 

{ 

#endif 

if(m_hKey !=NULL) 

: :RegCloseKey ( mhKey ); 

#ifhdef_VXD_SOURCE_ 
} 

catch(...) 

{ 

XDCATCH; 
bOK = FALSE; 

} 
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#endif 

// 

// unconditionally null the key 

// 

m_hKey=NULL; 

return bOK; 
}//EndofRegClose() 

// 

// Method: RegEnumStrO 

// Purpose: enumerates subkeys for a key. i is the index to get 
// 

BOOL xdRegistry::RegEnumStr ( int i, LPCTSTR szValue, UINT uiLenWithNull ) 
{ 

BOOL bOK = TRUE; 
DWORD dwldx = i; 

DWORD dwSize = (DWORD) uiLenWithNull; 
LPBYTE pValue = (LPBYTE) szValue; 

// 

// Make sure that the registry is open 

// 

if(m_hKey = NULL) 
return FALSE; 

#ifhdef_VXD_SOURCE_ 
try 
{ 

#endif 

// 

// initialize the string to be empty 
// 

memset ( pValue, 0, uiLenWithNull ); 

#ifdef_VXD_SOURCE_ 

m_lRetCode = ::RegEnumKey( m_hKey, // 

hive/key 

dwldx, 

// index of the key to get 

(LPTSTR)pValue, 

// key name will go here 

dwSize); 

// the size of the buffer 

#else 
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#ifdef_UNICODE 

CString sTmp; 

TCHAR szBuf = (BYTE*)sTmp.GetBuffer(512); 
mJRetCode = ::RegEnumKeyA (mJiKey, // hive/key 

dwldx, // 

index of the key to get 

(char*)buf, //key 

name will go here 

dwSize); // the 

size of the buffer 

CString fred(buf); 
_tcscpy((LPTSTR)szValue,fred); 

#else 

mJRetCode = ::RegEnumKey ( mJiKey, // 

hive/key 

dwldx, 

// index of the key to get 

(LPTSTR)pValue, 

// key name will go here 

dwSize); 

// the size of the buffer 
#endif 

#endif 

bOK = (ERROR_SUCCESS = mJRetCode); 

if(bOK!= FALSE) 

{ 

// 

// terminate the string...ensure that we dont go past 
// the max lenth of the string! 

// 

((LPTSTR)szValue) [ min(dwSize,uiLenWithNull) ] = 0; 

} 

#ifndef_VXD_SOURCE_ 
} 

catch(...) 

{ 

XDCATCH; 
bOK> FALSE; 

} 

#endif 

return bOK; 
} // End of RegEnumStrQ 
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// 

// Method: RegGetStrO 

// Purpose: retrieves a string value from the registry. NOTE: The length 

// of the string MUST include space for the NULL terminator since 

// this character IS read from the registry. So, if you want to 

// read ' ABCTT from the registry, supply a uiLenWithNull of five(5). 

// 

BOOL xdRegistry::RegGetStr ( LPCTSTR szName, LPCTSTR szValue, UINT 

uiLenWithNull) 

{ 

BOOL bOK = TRUE; 

DWORD dwType = 0; 

DWORD dwSize= (DWORD) uiLenWithNull; 

LPBYTE pValue= (LPBYTE) szValue; 

// 

// Make sure that the registry is open 

// 

if(m_hKey = NULL) 
return FALSE; 

#ifndef_VXD_SOURCE_ 
try 

{ 

#endif 

// initialize the string to be empty 

memset ( pValue, 0, uiLenWithNull ); 

#ifdef_VXD_SOURCE_ 

mJRetCode = : :RegQueryValueEx (mJiKey, // 

hive/key 

(LPTSTR)szName, // value name 
// reserved 
// the REG * type 

// pointer to the storage area 
// # to fetch (WITH NULL) 

$elsc 

#ifdef JJNICODE 

charsShort[512]; 
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NULL, 
&dwType, 
pValue, 
&dwSize); 



charsDefault[512]; 
charbuf[512]; 
BOOL b; 

*sDefault = *sShort=0; 
WideCharToMultiByte 



sDefault, &b ); 



( CP_ACP, 0, szName, -1, sShort, 512, 
mJRetCode = ::RegQueryValueExA (m_hKey, 
// value name 



// reserved 
// the REG_* type 
(LPBYTE)buf, 



// pointer to the storage area 



//# to fetch (WITH NULL) 
CString fred(buf); 
Jcscpy((LPTSTR)szValue,fred); 

#else 

mJRetCode = ::RegQueryValueEx (m_hKey, 
// value name 
// reserved 
// the REG_* type 
// pointer to the storage area 



// # to fetch (WITH NULL) 
#endif 



#endif 



// hive/key 
sShort, 



0, 

&dwType, 
&dwSize); 



// hive/key 
szName, 

0, 

&dwType, 

pValue, 

&dwSize); 



bOK = (ERROR_SUCCESS = mJRetCode); 

if ( bOK == TRUE ) 

{ 

// 

// make sure that it was a string value which was returned. 
// If not, Delete the entry so we can regen it as a string 

// 

if (REG SZ !=dwType) 

-RegDeleteValue ( rnhKey, (LPTSTR)szName ); 

// 

// terminate the string... ensure that we dont go past 
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// the max lenth of the string! 

// 

((LPTSTR)szValue) [ min(dwSize,uiLenWithNull) ] = 0; 

} 

#imdef_VXD_SOURCE_ 
} 

catch(...) 
{ 

XDCATCH; 
bOK> FALSE; 

} 

#endif 

return bOK; 
}//EndofRegGetStrO 

// 

// Method: RegPutStrO 

// Purpose: write the information to the registry (write the NULL TOO). 
// * ' 

BOOL xdRegistry::RegPutStr ( LPCTSTR szName, LPCTSTR szValue ) 
{ 

BOOL bOK = TRUE; 

// 

// Make sure that the registry is open 

// 

if(m_hKey==NULL) 
return FALSE; 

#imdef_VXD_SOURCE_ 
try 
{ 

#endif 



#ifdef_VXD_SOURCE_ 

// move everything into a temp buffer so that we can ensure 
// the existance of a NULL byte on the end of the string 

CString sTmp; 

LPTSTR szBuf = sTmp.GetBuffer(512); 
memset ( szBuf, 0, 512 ); 

memcpy ( szBuf, szValue, min(sTmp.GetAUocLengthO-l,strlen(szValue)) 

); 
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remember...always write the NULL byte too! 

UINT uiLenWithNull = strlen(szBuf) + 1; 
mJRetCode = "RegSetValueEx ( m_hKey, (LPTSTR)szName, 0, 

REG_SZ, 

(LPBYTE)szBuf, uiLenWithNull ); 

#ifdef .UNICODE 

char sShort[512]; 
charsShortVal[512]; 
char sDefault[512]; 
BOOL b; 

♦sDefault = *sShort=0; 

WideCharToMultiByte ( CP_ACP, 0, szName, -1 , sShort, 512, 

sDefault, &b ); 

WideCharToMultiByte ( CP_ACP, 0, szValue, -1 , sShortVal, 512, 
sDefault, &b ); 

m lRetCode=::RegSetValueExA( m_hKey, sShort, 0, REG_SZ, 

(LPBYTE) 

sShortVal, strlen(sShortVal)+l ); 
#else 

CString sTmp; 

LPTSTR szBuf = (LPTSTR)sTmp.GetBuffer(1024); 
memset ( szBuf, 0, 1024 ); 

memcpy ( szBuf, szValue, min(1023,_tcslen(szValue))*sizeof(TCHAR) ); 
szBufj_tcslen(szValue)] = 0; 

// 

// remember...always write the NULL byte too! 
// 

UINT uiLenWithNull = Jcslen(szBuf) + 1; 

m IRetCode = : .RegSetValueEx ( m hKey, szName, 0, REG SZ, 

(LPBYTE) 

szBuf, uiLenWithNull ); 
#endif 

#endif 

bOK = (ERROR_SUCCESS == mJRetCode); 

#ifhdef_VXD_SOURCE_ 
} 

catch(...) 
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{ 

XDCATCH; 
bOK = FALSE; 

} 

#endif 

return bOK; 
}//EndofRegPutStr() 

// 

// Method: RegGetNum() 

// Purpose: Retrieves a number from the registry, there are various 

// overloads for different types. 

// 

BOOL xdRegistry::RegGetNum(LPCTSTR sName, DWORD& dwValue) 
{ 

BOOL bOK = TRUE; 
CString sTmp; 

LPTSTR szBuf = sTmp.GetBuffer(XD_LEN_64); 

memset ( szBuf, 0, XD_LEN_64 ); 

DWORD dwType = 0; 

DWORD dwSize = XD_LEN_64-1 ; 



// Make sure that the registry is open 

// 

if(m_hKey==NULL) 
return FALSE; 

#ifhdef_VXD_SOURCE_ 
try 
{ 

#endif 

#ifdef_VXD_SOURCE_ 

bOK = RegGetStr ( sName, szBuf, sTmp.GetAllocLength()-l ); 
if ( bOK == TRUE ) 

dwValue = (DWORD)atol((LPTSTR)szBuf); 

$clsc 

#ifdef_UNICODE 

charsShort[512]; 
char sDefault[512]; 
char bufTmp[512]; 
BOOLb=0; 
*sDefault = *sShort=0; 
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sDefault, &b ); 



WideCharToMultiByte ( CP_ACP, 0, sName, -1 , sShort, 5 12, 



m_lRetCode = ::RegQueryValueExA (m_hKey, 
// value name 

// reserved 
// the REG_* type 

(LPBYTE)bufTmp, // pointer to the storage area 

//# to fetch (WITH NULL) 

bOK = (ERRORJSUCCESS = mJRetCode); 

if ( bOK = TRUE ) 

{ 

if(dwType = REG_SZ) 

dwValue = (DWORD)atol(bufTmp); 

} 

#else 

mJRetCode = "RegQueryValueEx (m_hKey, 



sName, 

&dwType, 
(BYTE*)szBuf, 
&dwSize ); 

bOK = (ERROR_SUCCESS = mJRetCode); 

if ( bOK — TRUE ) 

{ 

if(dwType = REG_SZ) 

dwValue = (DWORD)_ttol((LPTSTR)szBuf); 
if ( dwType == REGDWORD ) 

dwValue = * ((DWORD*)szBuf); 



// hive/key 
sShort, 

0, 

&dwType, 
&dwSize); 



0, 



} 



#endif 

#endif 

#ifndef_VXD_SOURCE_ 
} 

catch(...) 
{ 

XDCATCH; 
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bOK = FALSE; 

} 

#endif 

return bOK; 
} // End of RegGetNumO 

// 

// Method: RegGetNumO 

// Purpose: Retrieves a number from the registry. UINT version 

// 

BOOL xdRegistry::RegGetNum(LPCTSTR sName, UINT& uiValue) 
{ 

DWORD dwValue = uiValue; 

BOOL bOK = RegGetNum(sName,dwValue); 



// Method: RegGetNumO 

// Purpose: Retrieves a number from the registry. BOOL version 

// 

BOOL xdRegistry::RegGetNum(LPCTSTR sName, BOOL& bValue) 
{ 

DWORD dwValue = bValue; 

BOOL bOK = RegGetNum(sName,dwValue); 

bValue = (BOOL) dwValue; 

return bOK; 
} // End of RegGetNumO 

// 

// Method: RegGetNumO 

// Purpose: Retrieves a number from the registry. WORD VERSION. 

// 

BOOL xdRegistry::RegGetNum(LPCTSTR sName, WORD& wValue) 
{ 

DWORD dwValue = wValue; 

BOOL bOK = RegGetNum(sName,dwValue); 

wValue = (WORD) dwValue; 



uiValue = (UINT) dwValue; 




// 



return bOK; 
} // End of RegGetNumO 
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return bOK; 
}//EndofRegGefNumO 

// 

// Method: RegPutNumO 

// Purpose: writes a numeric value to the registry. 

// 

BOOL xdRegistry::RegPutNum(LPCTSTR sName, DWORD dwValue) 
{ 

BOOL bOK = TRUE; 

// 

// make sure the key is open 

// 

if(m_hKey==NULL) 
return FALSE; 

#imdef_VXD_SOURCE_ 
try 
{ 

#endif 

#ifdef_VXD_SOURCE_ 

CString sTmp; 

BYTE* szBuf = (BYTE*)sTmp.GetBuffer(132); 

sprintf( (LPTSTR)szBuf, _T("%lu n ), dwValue); 

UINT uiLenWithNull = strlen((LPTSTR)szBuf) + 1; // ADD THE 

NULL!!!!!!! 

m IRetCode = : :RegSetValueEx ( m_hKey, (LPTSTR)sName, 

0,REG_SZ, 

szBuf, uiLenWithNull ); 

bOK = (ERROR_SUCCESS == mJRetCode); 

#else 

#ifdef_UNICODE 

charsShort[512]; 
char sDefault[5 1 2] ; 
BOOL b; 

♦sDefault = *sShort=0; 

WideCharToMultiByte ( CP_ACP, 0, sName, - 1 , sShort, 5 1 2, 

sDefault, &b ); 

sprintf( sDefault, "%lu", dwValue ); 

mJRetCode = ::RegSetValueExA ( m_hKey, sShort, 0, REG_SZ, 

(LPBYTE)sDefault, strlen(sDefault)+l ); 
#else 

CString sTmp; 
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LPTSTR szBuf = sTmp.GetBuffer(XD_LEN_64); 
wsprintf( (LPTSTR)szBuf, _T("%lu"), dwValue); 
UINT uiLenWithNull = _tcslen((LPTSTR)szBuf) + 1; // ADD THE 

NULL!!!!!!! 

mJRetCode = ::RegSetValueEx ( m_hKey, 

sName, 
0, 

REG_SZ, 

(BYTE*)szBuf, 

uiLenWithNull); 
#endif 

#endif 

bOK = (ERROR_SUCCESS = mJRetCode); 

#ifhdef_VXD_SOURCE_ 
} 

catch(...) 

{ 

XDCATCH; 
bOK = FALSE; 

} 

#endif 

return bOK; 
}//EndofRegPutNum() 

// 

// Method: RegDeleteValueO 
// Purpose: 

// 

BOOL xdRegistry::RegDeleteValue ( LPCTSTR szValue ) 
{ 

BOOL bOK = TRUE; 

// 

// make sure the key is open 

// 

if(m_hKey=NULL) 
return FALSE; 

#ifhdef_VXD_SOURCE_ 
try 
{ 
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#endif 



mJRetCode = "RegDeleteValue ( mJiKey, (LPTSTR)szValue ); 
bOK = (ERROR_SUCCESS = mJRetCode); 

#ifndef_VXD_SOURCE_ 
} 

catch(...) 

{ 

XDCATCH; 
bOK = FALSE; 

} 

#endif 

return bOK; 
} // End of RegDeleteValueO 

// 

// Method: RegEnumValO 

// Purpose: enumerates values for a key. i is the index to get 
// 

BOOL xdRegistry::RegEnumVal ( int i, LPCTSTR szValueName, UINT 
uiNameLenWithNull, 

LPCTSTR 

szValueData, UINT uiDataLenWithNull) 
{ 

BOOL bOK = TRUE; 
DWORD dwldx = i; 

DWORD dwSize = (DWORD) uiNameLenWithNull; 
DWORD dwDataSize = (DWORD)uiDataLenWithNull; 
LPBYTE pValue = (LPBYTE) szValueName; 
LPBYTE pDataValue = (LPBYTE) szValueData; 

// 

// make sure the key is open 

// 

if(m_hKey==NULL) 
return FALSE; 

#imdef_VXD_SOURCE_ 
try 
{ 

#endif 

// 

// initialize the string to be empty 
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// 

memset ( pValue, 0, uiNameLenWithNull ); 
memset ( pDataValue, 0, uiDataLenWithNull ); 

#ifdef_VXDJSOURCE_ 

mJRetCode = ::RegEnumValue(m_hKey, 

// index of the value to get 

// valuename will go here 

// the size of the buffer 

// reserved, 

// address of type code 



#else 



mJRetCode = ::RegEnumValue(mJiKey, 
// index of the value to get 
// valuename will go here 
// the size of the buffer 
// reserved, 

// address of type code 



#endif 



// hive/key 

dwldx, 

(LPTSTR)pValue, 

&dwSize, 

0, 

NULL, 

pDataValue, 
&dwDataSize); 

// hive/key 

dwldx, 

(LPTSTR)pValue, 

&dwSize, 

0, 

NULL, 

pDataValue, 
&dwDataSize); 



0; 

= 0; 



bOK = (ERROR_SUCCESS = mJRetCode); 

if ( bOK == TRUE ) 

{ 

// 

// terminate the string... ensure that we dont go past 
// the max lenth of the string! 

// 

((LPTSTR)szValueName) [ min(dwSize,uiNameLenWithNull) ] = 
((LPTSTR)szValueData) [ min(dwDataSize,uiDataLenWithNull) ] 
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#imdef _VXD_SOURCE_ 
} 

catch(...) 
{ 

XDCATCH; 
bOK = FALSE; 

} 

#endif 

return bOK; 
} // End of RegEnumValO 

// 

// Method: RegPutBinO 

// Purpose: write the information to the registry 

BOOL xdRegistry::RegPutBin ( LPCTSTR szName, BYTE* pBuffer, UINT uiLength ) 
{ 

BOOL bOK = TRUE; 
// 

// make sure the key is open 

// 

if(m_hKey==NULL) 
return FALSE; 

#ifndef_VXD_SOURCE_ 
try 
{ 

#endif 

// 

// move everything into a temp buffer so that we can ensure 
// the existance of a NULL byte on the end of the string 
// 

CString sTmp; 

LPTSTR szBuf = sTmp.GetBuffer(132); 
memset ( szBuf, 0, 132 ); 

memcpy ( szBuf, pBuffer, min(sTmp.GetAllocLength()-l, uiLength) ); 
mJRetCode = "RegSetValueEx ( mJiKey, 
(LPTSTR)szName, 



REGBINARY, 
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(LPBYTE) 

szBuf, 

uiLength ); 

bOK = (ERROR_SUCCESS = mJRetCode); 

#ifhdef_VXD_SOURCE_ 
} 

catch(...) 
{ 

XDCATCH; 
bOK = FALSE; 

} 

#endif 

return bOK; 
}//EndofRegPutBinO 



// Method: RegEnumKeyO 

// Purpose: enumerates values for a key. i is the index to get 

// 

BOOL xdRegistry::RegEnumKey ( int i, LPCTSTR szValueName, UINT 

uiNameLenWithNull) 

{ 

BOOL bOK = TRUE; 
DWORD dwldx = i; 

DWORD dwSize = (DWORD) uiNameLenWithNull; 
LPBYTE pValue = (LPBYTE) szValueName; 

// 

// make sure the key is open 

// 

if(m_hKey==NULL) 
return FALSE; 

#imdef_VXD_SOURCE_ 
try 
{ 

#endif 

// 

// initialize the string to be empty 

// 

memset ( pValue, 0, uiNameLenWithNull ); 

#ifdef_VXD_SOURCE_ 

mJRetCode = : :RegEnumKey(m_hKey, // hive/key 
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dwldx, // 

index of the value to get 

(LPTSTR)pValue, // 

valuename will go here 

dwSize); // the 

size of the buffer 
#else 

m IRetCode = ::RegEnumKey(m_hKey, // hive/key 

dwldx, // 

index of the value to get 

(LPTSTR)pValue, // 

valuename will go here 

dwSize); //the 

size of the buffer 
#endif 

bOK = (ERROR_SUCCESS == mJRetCode); 

if (bOK==TRUE) 

{ 

// 

// terminate the string...ensure that we dont go past 
// the max lenth of the string! 

// 

((LPTSTR)szValueName) [ min(dwSize,uiNameLenWithNull) ] = 

0; 

} 

#imdef_VXD_SOURCE_ 
} 

catch(...) 
{ 

XDCATCH; 
bOK = FALSE; 

} 

#endif 

return bOK; 
} // End of RegEnumKeyO 
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// 

// Module: xdFilelO.cpp 

// Subsystem: X:drive Tools Library (xdTools.dll) 
// Contents: Redefinitions for the FILE 10 functions 

// 

// 

// Copyright (c) 1999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1996-1999 by KnoWare(r), Inc. 

// All rights reserved. 

// 

// 

// 

include "stdafx.h" 

#include <xdGlobals.h> // X:drive system wide globals 

#include <xdTools.h> 

#ifdef_DEBUG 

#undef THIS_FILE 

static char BASEDCODE THIS_FILE[] = _FILE_; 

#endif 

#ifdef_VXD_SOURCE_ 

#include LOCKED_CODE_SEGMENT 
#include LOCKED_DATA_SEGMENT 

#endif 

#ifdef_VXD_SOURCE_ 

// 

// Function: CreateFileO 

// Purpose: This API function maps the standard Win32 CreateFile function 

// " to the Ring-0 R0_OpenCreateFile() call. 

// Returns: INVALID_HANDLE_VALUE - bad 

// something else - good! 

// 

HANDLE CreateFile ( LPCTSTR IpFileName, // pointer to name of the file 

DWORD dwDesiredAccess, // access (read- 
write) mode 

DWORD dwShareMode, // share mode 
void* IpSecAtt, // 

pointer to security attributes 

DWORD dwCreateFlags, //how to 

DWORD dwFlagsAndAttributes, //file 

attributes 

HANDLE) 
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HANDLE h = INVALID JIANDLE J/ ALUE; 
WORD wError = 0; 
WORD wMode = 0; 
BYTE action = 0; 

switch (dwDesiredAccess) 
{ 

case GENERICRE AD : 

wMode = OPEN_ACCESS_READONLY; 
break; 

case GENERICWRITE: 

wMode = OPEN_ACCESS_WRITEONLY; 

break; 

default: 

wMode = OPENACCESSJREAD WRITE; 
break; 

} 
// 

// file sharing not supported! 

// 

wMode |= OPEN_SHARE_COMPATIBLE; 

// 

// Create Attributes 

// 

switch ( dwCreateFlags ) 

case CREATEJSfEW: // create New file, fail if file exists 
action = ACTION_IFEXISTS_FAIL | 
ACTION JFNOTEXISTS_CREATE; 
break; 

case CREATE ALWAYS : // create New file, overwrite if exists 
action = ACTION_IFEXISTS_TRUNCATE | 
ACTIONIFNOTEXISTSCREATE; 
break; 

case OPEN_EXISTING: // open file, fail if the file does not exists 

action = ACTION_IFEXISTS_OPEN | ACTION_IFNOTEXISTS_FAIL; 
break; 

case OPEN_ALWAYS: // open file, if lexists, create 
action = ACTION_IFEXISTS_OPEN | 
ACTION_IFNOTEXISTS_CREATE; 
break; 

case TRUNCATEEXISTING: // open&truncate file, fail if it does not exist 
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action = ACTION_IFEXISTS_OPEN | 
ACTION_IFEXISTS_TRUNCATE | ACTION_IFNOTEXISTS_FAIL; 
break; 

} 

h = R0j3penCreateFile(l,(LPTSTR)lpFileName,wMode, 

ATTR_NORMAL,action,R0_NO_CACHE,&wError,&action); 
return h; 
}//EndofCreateFileO 



// 

// Function: ReadFile() 

// Purpose: This API function maps the standard Win32 ReadFile function 

// " to the Ring-0 RO_ReadFileO call. 

// Returns: TRUE - Good read 

// FALSE - Bad Read 

// 

BOOL ReadFile ( HANDLE hFile, void* lpBuffer, DWORD dwBytesToRead, 

DWORD* pdwBytesRead, void* pdwOffset) 

{ 

WORDwError=0; 
DWORD dwOffset = 0; 



if (pdwOffset) 

dwOffset = *((DWORD*)pdwOffset); 

♦pdwBytesRead = RO_ReadFile ( TRUE, hFile, lpBuffer, dwBytesToRead, 

dwOffset, &wError ); 

return ( wError = 0 ); 
}//EndofReadFile() 

// 

// Function: WriteFileO 

// Purpose: This API function maps the standard Win32 WriteFile function 

// to the Ring-0 RO_WriteFile() call. 

// Returns: TRUE - Good write 

// FALSE - Bad write 

// 

BOOL WriteFile ( HANDLE hFile, LPCTSTR lpBuffer, DWORD dwBytesToWnte, 

DWORD* pBytesWritten, void* p) 

{ 

WORD wError = 0; 

DWORD dwFilePos = RO_GetFileSize(hFile,&wError); 
*pBytesWritten = R0_WriteFile ( TRUE, hFile, (void*)lpBuffer, 
dwBytesToWrite, 
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dwFilePos, &wError 



); 

return (wError == 0); 
}//EndofWriteFileO 

// 

// Function: CloseHandleO 

// Purpose: This API function maps the standard Win32 CloseHandle function 

// to the Ring-0 R0_CloseFile() call. 

// Returns: TRUE - success 

// FALSE - failure 

// 

BOOL CloseHandle ( HANDLE hFile ) 
{ 

WORD wError = 0; 

return R0_CloseFile ( hFile, &wError ); 
}// End of CloseHandleO 

// 

//Function: GetFileSizeO 

// Purpose: This API function maps the standard Win32 GetFileSize function 

// to the Ring-0 RO_GetFileSizeO call. 

// Returns: TRUE - success 

// FALSE - failure 

// 

DWORD GetFileSize ( HANDLE hFile, DWORD* pdwHigh ) 
{ 

WORD wError = 0; 

return RO_GetFileSize ( hFile, &wError ); 
}// End of GetFileSizeO 



// 

// Function: ReadFileLineO 

// Purpose: This API function maps the standard Win32 ReadFile function 

// ' to the Ring-0 R0_ReadFile0 call. 

// Returns: TRUE - Good read 

// FALSE - Bad Read 

// 

BOOL ReadFileLine ( HANDLE hFile, BYTE* lpBuffer, 

DWORD dwBytesToRead, 
DWORD* pdwBytesRead, 
DWORD* pdwOffset ) 

{ 

WORD wError -0; 
DWORD dwOffset = 0; 
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if(pdwOffset) 

dwOffset = *((DWORD*)pdwOffset); 

// 

//Check for EOF 

// 

if ( dwOffset >= RO_GetFileSize(hFile,&wError) ) 
return FALSE; 

// *pdwBytesRead = RO_ReadFile ( TRUE, hFile, lpBuffer, dwBytesToRead, 
// * dwOffset, &wError ); 

memset ( lpBuffer, 0, dwBytesToRead ); 

int iTmpBytesRead = 1; 
BOOL bFoundEOL = FALSE; 
int i=0; 

for ( i=0; (iTmpBytesRead != 0) && (KdwBytesToRead) && 

(wError == 0) && (bFoundEOL=FALSE); i++ ) 

^ iTmpBytesRead = R0_ReadFile ( TRUE, hFile, &(lpBuffer[i]), 1 , 
dwOffset+i, &wError ); 

if ((iTmpBytesRead != 0) && (wError = 0)) 

{ 

if(lpBuffer[i] = chNL) 

bFoundEOL = TRUE; 

} 

} 

*pdwBytesRead = i; 

return ( wError = 0 ); 
} // End of ReadFileLineO 
#endif 
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// 

// Module: xdDebugger.cpp 

// Subsystem: X:drive Tools Library (xdTools.dll) 

// Contents: Implementation module for the xdDebugger utility class. 

// 

// 

// Copyright (c) 1999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1996-1999 by KnoWare(r), Inc. 

// All rights reserved. 

// 

// 

// 

#include "stdafx.h" 

#include <xdGlobals.h> // X:drive system wide globals 

M* #include <xdTools.h> // X:drive Tools Related 

Cl #include <xdDebugger.h> 

^ #imdef_VXD_SOURCE_ 
r{ #include <afxmt.h> 

■J #include "resource.h" 

i n #endif 

h #ifdef_DEBUG 

m #undef THISFILE 

M static char BASED CODE THIS_FILE[] = _FILE_; 

#endif 

ry #ifdef_VXD_SOURCE_ 

#include LOCKEDCODESEGMENT 
#include LOCKED_DATA_SEGMENT 

#endif 

// 

// Method: xdDebuggerO 

// Purpose: Constructor for the debugger class. 

, • 11 

xdDebugger: :xdDebugger() 
{ 

#ifndef_VXD_SOURCE_ 
try 

#endif 

m_szLogFile = (LPTSTR)malloc(XD_LEN_1024); 
m_szMsg = (LPTSTR)malloc(XD_LEN_2048); 
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m_szBuf=(LPTSTR)malloc(XD_LEN_2048); 

m_hLogFile = NULL; 
m_bLogFile = FALSE; 

Jcscpy ( m_szLogFile, XDLOGFILENP ); 

#ifodef_VXD_SOURCE_ 

m_pSem = new CSemaphore(l,l); 

#endif 

} 

#ifodef_VXD_SOURCE_ 
catch(...) 
{ 

XDCATCH; 

} 

#endif 

}//EndofxdDebuggerO 

// 

// Method: ~xdDebugger() 
// Purpose: Destructor. 

// 

xdDebugger: :~xdDebugger() 
{ 

#ifhdef_VXD_SOURCE_ 
delete mjpSem; 

#endif 

free(m_szMsg); 

free(m_szLogFile); 

free(m_szBuf); 

} // End of ~xdDebugger() 

// 

// Method: DebuggerOn() 

// Purpose: turns on debugging to the optional logfile 

// 

void xdDebugger: :DebuggerOn(BOOL blnitialize) 
{ 

#ifdef_VXD_SOURCE_ 
WORDwError = 0; 
BYTE bAction = 0; 

// 

// force a creation of the file if it does not already exist. Then 
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// simply close the file; we 11 open it when we need to write to 

//it 

// 

m_bLogFile = TRUE; 
if(bInitialize = TRUE) 

* LPTSTR szOldFile = (LPTSTR)malloc( XD_LEN_1 024 ); 
strcpy ( szOldFile, m_szLogFile ); 
LPTSTR pDot = strrchr(sz01dFile,chPERIOD); 
if ( pDot != NULL) 

*pDot = NULL; 
strcat( szOldFile, ".old" ); 
R0_DeleteFile ( szOldFile, 0, &wError ); 
R0_RenameFile ( m_szLogFile, szOldFile, &wError ); 
m_hLogFile = R0_OpenCreateFile ( TRUE, m_szLogFile, 

OPEN_SHARE_DENYWRITE|OPEN_ACCESS_WRITEONLY, 

ATTR_NORMAL, 

ACTION_IFEXISTS_TRUNCATE| 

ACTION_IFNOTEXISTS_CREATE, 

0, &wError, 

(PUCHAR)&bAction ); 

free(szOldFile); 

} 

else 

m_hLogFile = R0_OpenCreateFile ( TRUE, m_szLogFile, 
OPEN_SHARE_DENYWRITE|OPEN_ACCESS_WRITEONLY, 

ATTR_NORMAL, 

ACTION_IFEXISTS_OPEN| 

ACTIONIFNOTEXISTSCREATE, 

0, &wError, 

(PUCHAR)&bAction); 

// 

// Ok, we opened/created the close it again. We never want to keep 
// the logfile open so that we ensure that its contents are saved 
// to disk. 

// 

if ( (mJiLogFile != NULL) && (wError = 0) ) 
R0_CloseFile ( m_hLogFile, &wError ); 
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N 



m 



#else 



m_hLogFile = NULL; 



try 
{ 



// 

// force a creation of the file if it does not already exist. Then 
// simply close the file; we 11 open it when we need to write to 
//it. 
// 

m_bLogFile = TRUE; 

if(bInitialize===TRUE) 
{ 

CString sOldFile; 

LPTSTR szOldFile = s01dFile.GetBuffer(512);; 
_tcscpy ( szOldFile, m_szLogFile ); 
LPTSTR pDot = _tcsrchr(sz01dFile,chPERIOD); 
if ( pDot != NULL) 

*pDot = NULL; 
Jcscat ( szOldFile, _T(".old") ); 
DeleteFile ( szOldFile ); 
try 
{ 

CFile::Rename( m_szLogFile 5 szOldFile ); 

catch(...) 

{ 

} 



#ifdef_UNICODE 

#else 

#endif 

} 

else 

#ifdef UNICODE 



m_hLogFile = _wfopen(m_szLogFile J _T("w+")); 
m_hLogFile = fopen(m_szLogFile,_T("w+")); 



#else 
#endif 



} 

catch(...) 

{ 



m_hLogFile = _wfopen(m_szLogFile,_T("a+")); 
m_hLogFile = fopen(m_szLogFile,_T("a+")); 

if ( rnhLogFile != NULL ) 
fcIose(m_hLogFile); 
rnhLogFile = NULL; 
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XDCATCH; 

} 

#endif 

}//EndofDebuggerOnO 

// 

// Method: DebuggerOffO 

// Purpose: turns off debugging to the optional logfile 

// 

void xdDebugger::DebuggerOffO 
{ 

#ifdef _VXD_SOURCE 

WORD wError = 0; 

if(m_hLogFile!=NULL) 
M RO_CloseFile ( m_hLogFile, &wError ); 

m m_bLogFile = FALSE; 

Q #else 

H mbLogFile = FALSE; 

W . #endif 

^ }// End of DebuggerOffO 

U ii 

fjj // Method: DEBUGMSGO 

\* II Purpose: always dumps the messages to debugger window and optionally to 

j* // the file... 

Q // 

ffi void xdDebugger: :DEBUGMSG(TCHAR *fmt,...) 

{ 

#ifdef_VXD_SOURCE_ 
va_list args; 

// 

// parse out the info 

// 

va_start(args,fmt); 

vsprintf(m_szBuf,fmt,args); 

va_end(args); 

// 

// add a <cr> 
// 

if (strchr(m_szBuf,chNL)=NULL) 
strcat(m_szBuf,"\r\n"); 

strcpy ( m_szMsg, "FSD: "); 
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strcat ( m_szMsg, mszBuf ); 

#ifdefDEBUG 

DEBUGTRACE(m_szMsg); 

#endif 

// 

// if the logfile is engaged, dump it! 

// 

if (m_bLogFile==TRUE) 
{ 

WORD wError = 0; 
BYTE bAction = 0; 



// open the file, dump the string, then close the file! ! ! 
mJiLogFile = R0_OpenCreateFile ( TRUE, m_szLogFile, 
OPEN_SHARE_DENYWRITE|OPEN_ACCESS_WRITEONLY, 

ATTRJSfORMAL, 

ACTION_IFEXISTS_OPEN | ACTION_IFNOTEXISTS_CREATE, 

0, &wError, 

(PUCHAR)&bAction ); 

if ((m_hLogFile != NULL) && (wError = 0)) 

^ DWORD dwOffset = RO_GetFileSize ( m_hLogFile, &wError ); 
R0_WriteFile ( TRUE, m_hLogFile, m_szMsg, strlen(m_szMsg), 

dwOffset, &wError); 
RO_CloseFile(m_hLogFile,&wError); 
m_hLogFile = NULL; 

} 

} 

#else 

try 
{ 

// 

// only wait 1 second, then do it. This guarantees that 
// we dont lock up the system 

// 

if ( m_pSem->Lock(5000) = TRUE ) 
{ 

vajist args; 

// 
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// parse out the info 

// 

va_start(args,fmt); 

_vstprintf(m_szBuf,fint,args); 

va_end(args); 

// 

// add a <cr> 

// 

if (_teschr(m_szBuf,chNL)=NULL) 
_tcscat(m_szBuf,szNL); 

*m_szMsg = 0; 

_tcscpy(m_szMsg,_T("LOG: ")); 
_tcscat(m_szMsg,m_szBuf); 

// 

// dump it to the IDE debugger 

// 

#ifdef_DEBUG 

OutputDebugString(m_szMsg); 
#endif 

// 

// if the logfile is engaged, dump it! 

// 

if(m_bLogFile = TRUE) 
{ 

// 

// open the file, dump the string, then close the file! ! ! 
// 

#ifdef_UNICODE 

mJiLogFile = _wfopen(m_szLogFile,_T("a")); 

#else 

m_hLogFile = fopen(m_szLogFile,_T("a")); 

#endif 

if (m_hLogFile !=NULL) 
{ 

_fputts(m_szMsg,m_hLogFile); 
//fflush(m_hLogFile); 
fclose(m_hLogFile); 
m_hLogFile= NULL; 

} 

} 

} 

} 
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catch(...) 

{ 

XDCATCH; 

if (m_hLogFile!=NULL) 

{ 

//fflush(m_hLogFile); 
fclose(m_hLogFile); 
m_hLogFile= NULL; 

} 

} 

m_pSem->UnlockO; 

#endif 

} // End of DEBUGMSG 
#ifhdef_VXD_SOURCE_ 

// 

// Method: DEBUGMSGO 

// Purpose: loads the string and then dumps it to the logfile. 

// 

void xdDebugger : :DEBUGMSG(UINT uiResourceld) 

CString s = XDLO ADSTRING(uiResourceId) ; 

DEBUGMSGC_T("%s\n"),s); 
}// End of DEBUGMSGO 
#endif 

// Method: SetLogNameO 
// Purpose: 

// 

void xdDebugger::SetLogName(LPCTSTR s) 
{ 

_tcscpy ( m_szLogFile, s ); 
} // End of SetLogNameO 

// 

// Method: IsDebuggerOnO 
// Purpose: 

// 

BOOL xdDebugger: :IsDebuggerOn ( void ) 
{ 

return m_bLogFile; 
} // End of IsDebuggerOnO 
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i I 



U1 



ft I 



//button.js 1 

//disklnfo js 6 

//launch.js 10 

//navjs H 

//saveToXdrive.js 29 

//secure Jogin.js 32 

//skipjs 34 

//skipthedownload.js 36 

//submit js 39 

//uploadStatusjs 55 

//utilsjs 56 

//verify Jib js 60 

//xparse.js 74 
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//button.js 

//Is called upon loading of page to set up the button image arrays 
function XDloadToolbarButtons () 
{ 

if (XD_gsAction == ' T ) { 

for (var i=0; i < 4; i=i+3) 
{ 

g_aimgUpload[i] = new Image () ; 
g_aimgDownload[i] = new Image () ; 
g_aimgNewFolder [i] = new Image (); 
g_aimgMove [i] - new Image (); 
g_aimgRename [i] = new Image () ; 
g_aimgDelete [i] = new Image () ; 
g_aimgHelp[i] = new Image () ; 
g_aimgView[i] = new Imaged; 
g__aimgShare [i] = new Imaged; 

g_aimgUpload[i] .src = XD_gsGraphicsLanguageRoot+ "up" + i + 
g_aimgDownload[i] .src = XD_gsGraphicsLanguageRoot+ "down" + i 
g_aimgView[i] . src = XD_gsGraphicsLanguageRoot+ "view" + i + 
g_aimgNewFolder [i] .src = XD__gsGraphicsLanguageRoot+ "new" + i 
g_aimgMove [i] . src = XDjgsGraphicsLanguageRoot+ "move" + i + 
g_aimgRename [i] . src = XD_gsGraphicsLanguageRoot+ "name" + i + 
g_aimgDelete[i] .src = XD__gsGraphicsLanguageRoot + "delete" + i 
g_aimgShare [i] . src = XD_gsGraphicsLanguageRoot+ "share" + i + 

g_aimgUpload[i] . src = XD_gsGraphicsLanguageRoot+ "nav_upload" 
+ i + ".gif"; 

// g_aimgDownload[i] . src = XD__gsGraphicsLanguageRoot-i- 

"nav_download" + i + ".gif"; 

// g_aimgView[i] .src = XD_gsGraphicsLanguageRoot+ "nav_view" + i 

+ ".gif"; 

// g_aimgNewFolder [i] .src = XD__gsGraphicsLanguageRoot+ 

"nav_newf older" + i + ".gif"; 

// g__aimgMove[i] .src » XD_gsGraphicsLanguageRoot+ "navjnove" + i 

+ ".gif"; 

// g_aimgRename [i] .src = XD_gsGraphicsLanguageRoot+ "nav__rename" 

+ i + ".gif"; 

// g_aimgDelete [i] . src = XD_gsGraphicsLanguageRoot+ "nav_delete" 

+ i + ".gif"; 

// g_aimgShare [i] . src = XD_gsGraphicsLanguageRoot+ "nav__share" + 

i + ".gif"; 

} 

} 





".gif"; 


H 


+ ".gif"; 




".gif"; 


S! 




N 


+ ".gif"; 


U1 






".gif"; 


Vis : 


".gif"; 
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ru 






// 
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// Takes a button and an event and returns a status 
//as defined by the containt button statuses 
function XDtoolbarButtonStatus (button, event) 
{ 

var rv = XD_TOOLBAR_BUTTON_ENABLED ; 

// Just exit if no controls are enabled 

if ( I ControlsEnabled) 

{ 

return XDJT00LBARJ3UTT0N_DISABLED; 

} 



if (event == XD_EVENT_MOUSEOVER) 
{ 

rv = XDJTOOLBAR_BUTTON_ACTIVE; 
} 

else if (event ===== XD_EVENTJ40USE0UT) 
{ 

rv = XDJTOOLBAR_BUTTON_ENABLED; 
} 

^ else if (event == XD_EVENT_CLICK) 

Q rv - XD_TOOLBAR_BUTTON_CLICKED; 

H } 

%j if { (button — XD_TOOLBAR_BUTTON_UPLOAD) 

&& (XD_gnSelectedFolderCount != 1) ) 

rv = XD TOOLBAR_BUTTON_DI SABLED ; 

* } 

y else if 

HJ ( (button == XD_TOOLBAR_BUTTON_DOWNLOAD) 

(XD_gnSelectedCount 1= 1 I I XD_gnSelectedFolderCount ! = 0) ) 

M { 

£3 rv = XD_TOOLBAR_BUTTON_DI SABLED; 

m ) 

else if 



{ (button XD_TOOLBAR_BUTTON_NEWFOLDER) 
&& (XD_gnSelectedFolderCount 1= 1)) 

{■ 

rv = XD_TOOLBAR_BUTTON_DISABLED; 
} 

else if 

((button == XD_TOOLBAR_BUTTON_MOVE) 
&& (XD_gnSelectedCount == 0)) 

{ 

rv - XD_TOOLBAR__BUTTON__DI SABLED; 
} 

else if 

( (button ===== XD_TOOLBAR_BUTTON_DELETE) 
&& (XD_gnSelectedCount == 0)) 

{ 

rv = XDJTOOLBAR_BUTTON_DI SABLED; 
} 
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else if 

((button ===== XD_TOOLBAR_BUTTON_RENAME) 
&& (XD_gnSelectedCount != 1}) 

{ 

rv = X D_TOOLBAR_BUT TON_D I S ABLED ; 
} 

else if 

(button == XDJTOOLBAR_BUTTON_VIEW) 

{ 

rv = XD_TOOLBAR_BUTTON_DI SABLE D; 

if (XDjgnSelectedCount == 1 && XD__gnSelectedFolderCount == 0) 
{ 

rv = XDJTOOLBAR_BUTTON_ENABLED; 
} 

} 

else if 

(button == XD_T00LBAR_BUTT0N_J3HARE ) 

{ 

rv = XDJTOOLBAR_BUTTON_DISABLED; 

if (XD_gnSelectedCount == 1 && XD_gnSelectedFolderCount == 0) 

Ml { 

p rv = XD_TOOLBAR_BUTTON_ENABLED; 

%ss| } 



Ul 

Vi return rv; 

vl } 

// Wrapper for updating images, used for checking if the image exists before 

53 // attempting to udpate it. 

fU function XDImageUpdate (olmage , imgGraphic) 

'fm { 

U if (olmage) 

Q { 

^1 // If the image exists then update it 

olmage. src = imgGraphic; 
} 

else 

{ 

// otherwise do nothing 
} 

} 



// Takes a button and an event, finds the status 
// and then refreshes the button. 

function XDref reshButton (sButton, sEvent) 
{ 

if (XD_gsAction == * 1 ) { 

var nStatus = XDtoolbarButtonStatus {sButton, sEvent) ; 
var oFrame = XD_goFrameControls; 

XD_gsPreviousGrove - grove; 

if (sButton == XDJTOOLBAR_BUTTON_UPLOAD) 
{ 
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XDImageUpdate (oFrame .document . img_upload, g__aimgUpload [nStatus] . src) ; 
} 

else if (sButton — XD_TOOLBAR_BUTTON_DOWNLOAD) 
{ 

XDImageUpdate (oFrame . document . img_download, g__aimg Down load [nStatus ] . src) ; 
} 

else if (sButton — XDJTOOLBAR_BUTTON_NEWFOLDER) 
{ 

XDImageUpdate (oFrame . document . img__newf older , 
g_aimgNewFolder [nStatus] .src) ; 
} 

else if (sButton == XD_TOOLBAR_BUTTON_MOVE ) 

XDImageUpdate (oFrame. document. img_move, g_aimgMove [nStatus] . src) ; 
} 

else if (sButton == XD JTOOLBAR_BUTTON JRENAME ) 

XDImageUpdate (oFrame . document . img_rename , g_aimgRename [nStatus ] .src); 
> 

else if (sButton == XD_TOOLBAR_BUTTON_DELETE) 

XDImageUpdate (oFrame . document . img__delete, g_aimgDelete [nStatus] . src) ; 
} 

else if (sButton -= XD__TOOLBAR_BUTTON_VIEW) 
{ 

XDImageUpdate (oFrame . document . img_view, g_aimgView [nStatus] .src); 
} 

else if (sButton = XDJTOOLBAR_BUTTON_SHARE) 

XDImageUpdate (oFrame . document . img_share, g_aimgShare [nStatus] . src) ; 
} 

} 

} 

//This refreshes all the buttons at one time, 
function XDref reshAHButtons ( ) 
{ 

XDref r e shBut ton ( XD_TOOLBAR__BUT TON_UPLOAD , null) ; 
XDref reshButton (XD JT0OLBARJBUTT0NJ3OWNL0AD, null ) ; 
XDref res hBut ton (XD_TOOLBAR_BUTTON_NEW FOLDER, null) ; 
XDref reshButton (XDJTOOLBAR_BUTTON_MOVE, null) ; 
XDref reshButton (XD_TOOLBAR_BUTTON_RENAME, null) ; 
XDref reshButton (XD_TOOLBAR__BUTTON_DELETE / null) ; 
XDre f reshButton (XD_T0OLBAR_BUTTON_VI EW , null) ; 
XDref reshButton (XDJTOOLBARJBUTTON_SHARE, null) ; 

} 

// Wraper that handles button click events, 
function XDbuttonClick (sButton) 
{ 

XDref reshButton (sButton, XD_EVENT_CLICK) ; 
} 



// Wrapper that handles the button MouseOver events 
function XDbuttonOver (sButton) 
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{ 

XDrefreshButton(sButton, XD_EVENT_MOUSEOVER) ; 
} 



// Wrapper that handles teh button MouseOut events, 
function XDbuttonOut (sButton) 
{ 

XDref reshButton ( sButton, XD_EVENT_MOUSEOUT ) ; 
} 

function XDfunctionStatus (button) 
{ 

if ( ! ControlsEnabled) 
{ 

return false; 
} 

if (XDtoolbarButtonStatus (button, XD_EVENT_MOUSE0VER) 
XD_TOOLBAR_BUTTON_ACTIVE ) 
{ 

return true; 
} 

else 

{ 

return false; 
} 

} 
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//disklnfo.js 



// NOTE: The table trick works differently in IE vrs Netscape. In netscape you 
need to 

// have an   as a value within the TD f s while in IE you do not need 
anything. 

function mresponse() 
{ 

parent. parent. parent. frames [ 'centerview' ] .document . location = 
" . . /explorer /more_space_mail . html" ; 



} 



if! 



m 



function XDdisplayDisklnf o (oFrame) 
{ 

//3K always taken up by xdrive, public and private folders 
//changed code so it doesn't show as red any more 

var nUsed = XD_gnQuotaUsed; 

var nTotal ■ XD gnQuotaTotal; 



2 //var nGraphWidth = XD_gnFileGraphWidth; 

var sGraphOsedColor = XDjgsUsedColor; 
^ var sGraphFreeColor = XD gsFreeColor; 



var freeMB = nTotal - nUsed; 

var usedPercent = Math. round (100 * (nUsed/nTotal) ) ; 



1 1 1 1 1 Do some basic bound checking 
if {usedPercent > 100) 
{ 

usedPercent = 100; 
sGraphFreeColor = sGraphOsedColor; 

M if { usedPercent < 0 ) 

usedPercent = 0; 
} 

var freePercent = 100-usedPercent ; 



oFrame . write ( ' <FORM name=" control Form" > ' ) ; 



oFrame. write { 1 < TABLE width=500 border=0 cellpadding=0 
cellspacing=0><TR>\n 1 ) ; 

oFrame . write ( 1 <TD width-300>  </TD>\ri' f ) ; 

oFrame. write ('<TD align="right" width=50*<BXFONT size="-l">' + XD_gsEmpty + 
'</FONT></BXimg src='V images /spacer . gif w width=l height=lx/TD>\n 1 } ; 

oFrame . write ( 1 <TD align^'center" width=100>\n 1 ) ; 

oFrame . write { ' <TABLE width-100 CELLPADDING=0 CELLSPACINGS 
BORDER=0XTR>\n 1 ) ; 
if (usedPercent != 0) 
{ 

oFrame . write ( 1 <TD height=10 WIDTH=" ' + usedPercent + '%" BGCOLOR^" ' + 
sGraphOsedColor + • "ximg s rc=*'7 images /spacer .gif " width-=l height^lx/TD^n' ) ; 
} 
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oFrame. write ('<TD height-10 WIDTH="' + freePercent + BGCOLOR=" 1 + 
sGraphFreeColor + 1 "ximg src="/images/spacer .gif " width- 1 height=lx/TD>\n ! ) ; 
oFrame . write { ' </TR></TABLE>\n 1 ) ; 

oFrame. write ('</TDXTD align= ,, left ,, width=50ximg src='7 images/spacer .gif " 
width-1 height=lXBXFONT size-"-!^' + XD_gsFull + »</FONTX/BX/TD>\n' ) ; 

oFrame . write ( 1 </TR>\n 1 ) ; 
oFrame . write ( ' </TABLE>\n f ) ; 

if (usedPercent>90) 

oFrame . write { 1 <TABLE width-500 border=0 cellpadding=0 cellspace^OxTRxTD 
width=300><img src="/images/spacer . gif " width=300 height-lx/TDXTD width=200 
valign=center align=leftXFONT size="-l" face="verdana, arial"> f + 
XD gsOutOf Space + 1 ?<BRXA HREF- Vcgi-bin/addspace . cgi?action=intro" 
ta rget="centerview">' + XD_gsBuyMore + 1 </AX/FONTX/TD></TRX/TABLE> 1 ) ; 

} 



oFrame.write{ T <input type=" hidden" name="multipleSelect" value="N ,f > 1 ) ; 
oFrame . write ( 1 </FORM>V ) ; 

}. 

function XDSelectedList ( ) 
{ 

return XD_gsSelectedList ; 
} 

function XDSelectedFolder ( ) 

return XD_gsSelectedFolderList . substring ( 0 , XD_gsSelectedFoiderList . length- 

1); 

} 

^***************************************^ 

* XDCleanupPath: Cleanup the passed path by removing the "/Xrdrive/" prefix 

* and the + postfix. 

*************************************************^ 
function XDPathCleanup (sPath) 

{ ; 

var sCopy = sPath; 

sCopy = sCopy. substring (9, sCopy. length) 

//sCopy = sCopy. substring (0, sCopy . length- 1 ) ; 
return sCopy; 

} 

function XDMultiSelect (sValue) 
{ 

if (sValue 1= 'null 1 && sValue != "") 
{ 

m_sMultiSelect = sValue; 
} 

else 

{ 

return rnjsMultiSelect ; 
} 
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} 



function HTMLNavigation () 
{ 

var sHTML = HTMLStartO 

+ f <table width="100%" border="0" cellspacing=" 0" 

cellpadding- ,r O"> t 

+ '<tr align="left" valign="top n bgcolor="#5EB114 "> ' 
+ , <tdximg src=" /images /main/logo_top . gif" width="153" 

height="28"x/td> t 

+ '</trxtr>' 

+'<td><img src="/images/main/logo_center . gif " width="171" 
height-"97" alt="X: drive"x/td> f 
+'</tr><tr>' 

+ , <tdximg src= Vimages/main/raceJLogoJoottom. gif " width="171" 
height="35"x/td> T 

+ , </trx/table> 1 

+ '<a target="toolbar" href-"http : //www.mit . edu">MIT</a> f 

+ 1 </BODY>\n</HTML> T ; 
return sHTML; 
} 

function HTMLStart () 
{ 

return "<HTML>\n" 

+'<body bgcolor= rT #6961AB" topmargin="0" lef tmargin="0" marginheight= M 0 " 
marginwidth="0" text=" #FFFFFF" vl ink= " # FFFFFF " alink="#FFFFFF" link= "#FFFFFF" 
{ onload} >' 

+"\n"; 

} 

function HTMLEnd () 
{ 

return " \n</BODY>\n</HTML>\n" ; 
} 

function RedrawToolBar ( ) 
{ 

var sWindow = 1 window. toolbar 1 ; 

sWindow . document . write ( HTMLStart ( ) + 1 test 1 +HTMLEnd ( ) ) ; 
} ' 

function roundoff (value, precision) 
{ 

value += .000000001; 

part = + parselnt (value) ; 

size = part. length; 

value = "" + value; //convert value to string 
return value. substring (0, size+l+precision) ; 
} 

function XDDiskUsedO 
{ 

var nUsed = XD_gnQuotaUsed; 

var nUsedMB = nUsed/1024; 

var nRound = roundOf f (nUsedMB, 2 ) ; 

var s Rounded; 
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// if (nUsed < 1024) 
// { 

// sRounded- f . , +nRound; 

// ) 

// else 

// { 

sRounded - nRound; 

// ) 



return sRounded; 



function XDDiskTotal () 
{ 

var nTotal = XD_gnQuotaTotal; 
var nTotalMB - nTotal/ 102 4; 
var nRound = roundoff (nTotalMB, 2 ) ; 
var sRounded; 



// if (nTotal < 1024) 
// { 

// sRounded = , . , +nRound; 

// } 

// else 

// { 

sRounded = nRound; 

// } 



return sRounded + 1 MB'; 



function XDDiskFreeO 
{ 

var nUsed = XD_gnQuotaUsed; 
var nTotal = XD_gnQuotaTotal; 

var nFreeMB = (nTotal - nUsed)/1024 
var nRound = roundoff (nFreeMB, 2 ) ; 
var sRounded; 



// if (nFreeMB < 1) 
// { 

// sRounded = ' •'+nRound; 

// } 

I'l else 

// { 

sRounded = nRound; 

// } 



return sRounded + 1 MB 1 ; 
} 



d:\my documents\x-dnve\js scrtptsVail js files with filenames.doc 



//launch.js 



/******************************* ********************************************* 

* XDExplorerLaunch: Launch the passed explorer URL in a popup window. 
****************************************************************************/ 

function XDExplorerLaunch ( 

sURL, //*** (I) The URL to open in the popup window 
nHeight, //*** (I) The height of the popup 
nWidth) //*** (I) The width of the popup 
{ 

var w = 

window. open (sURL, "XDriveExplorer", "location=no, toolbar=no,menubar=yes, "+ 
"status^no, resizable=no, scrolling=yes , scrollbars^no, "+ 
"width="+nWidth+" f height="+nHeight) ; 

//*** make sure the opener knows who the parent is 
if (w. opener ===== null) w. opener = self; 

//*** focus on the newly created window 

w , focus { ) ; 

} 

function XDExplorerURL ( ) 
{ 

return 1 /cgi-bin/explorer . cgi 1 ; 
} 

function XDDataURL ( ) 
{ 

return 1 /cgi-bin/explorer_data . cgi ' ; 



rij 
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//nav.js 



// Added by Julie Wang 111999 

// Function is used with <a href> to pop up another window to show X: drive's 
Terms of Service 
// page 

function toc() 
{ 

var url, window_name; 

url=" /company /toe . html" ; 
window_name="toc" ; 
window. open ( 

url, 

window__name, 

t toolbar=no,menubar=no,scrollbars=yes f fullscreen=no, resizable=no f width=650 f heigh 
t=400' 

>; 

return; 
} 

// Added by Julie Wang 122199 
// 

// Function is used with <a href> to pop up another window to show a 
// sample letter when someone use "Tell A Friend" feature. 

function tell_a_f riend_sample_email ( ) 
{ 

var url, window__name; 

u r 1 = " / gene r i c j o in_s ampl e_ema i 1 . html " ; 
window__name="toc" ; 
window. open ( 

url, 

window_name, 

'toolbar=no,menubar=no, scrollbars-yes, fullscreen=no, resizable=no, width=650, heigh 
t=400 1 

); 

return; 
} ' 

// Added by Julie Wang 102699 
// 

// Function writes the side bar nav. menu/buttons on general HTML pages for 
every visitors. 

function left_menu() 

1 document. write (Stable width=\"138\" border-\"0\" cellspacing-\"0\" 
cellpadding^'OV^Xn' ) ; 

document. write ('<tr align=\"left\" valign=\"top\">\n' ) ; 
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document . write ( ' <tdxa href =\ "http : / / www . xdrive . com\ "Ximg 
src=\ f 7graphics/internal/btn_xdrivehome.gif\" width=\"138\" height«\"19\" 
alt=\"X: drive Home\" border=\"0\"x/a><br><img 

src-\"/graphics/internal/divider.gif\" width=A"138\" height=\"5\" 
alt=\"Divider\"x/td>\n f ) ; 
document . write { 1 </tr>\n 1 ) ; 

document. write( f <tr align=\"left\" valign=\"top\ TI >\n' ) ; 
document . write ( ? <td>\n T ) ; 

document.write( f <table width=\"138\" border=\"0\" cellspacing=\"0\" 
ceilpadding=\"0\" background^ "/graphics/internal/lines . gif \">\n 1 ) ; 
document. write ( f <tr align=\"left\" valign=\"top\">\n ' ) ; 

document . write ( ' <td width=\ " 38 \ "ximg src=\ " /graphics / internal /icon-new . gi f \ " 
width=\"38\" height=A"31\" alt=A"New\"x/td>\n ' ) ; 

document.write('<td align=\"left\" valign=\"middle\" width=\"100\"xbxfont 
face=A"Arial, Helvetica, sans-serif \" size=\"2\"xa 
hre f="/company/new.html\ n >What\ , s New</ax/f ontx/bx/td>\n' ) ; 

document .write { ' </tr>\n T ) ; 

document. write {'<tr align=A"lef t\" valign=\"top\">\n ' ) ; 

document.write( f <td width=\"38\"Ximg src=Wgraphics/internal/icon- 
about.gif\" width=\"38\" height=\"34\" alt=\ "About X:drive\ ,f x/td>\n' ) ; 

document.write('<td align=\"lef t\" valign=\"middle\" width=\"100\"xbxfont 
f ace =\»Arial, Helvetica, sans-serifv size=\"2\"xa 

href=\"/company/company.html\">About X: drive</a></f ontx/bx/td>\n 1 ) ; 
document .write { T </tr>\n' ) ; 

document.write( T <tr align=\"left\" valign=\"top\">\n' ) ; 

document . write ( 1 <td width=\ "38 \ "ximg 
src-\"/graphics/internal/icon_desktop.gif\" width=\"38\" height=\"28\" 
alt=\"Desktop X:drive\"X/td>\n' ) ; 

document.write('<td align=A"left\" valign=\"middle\" width=\"100\"xbxf ont 
face=\"Arial, Helvetica, sans-serif\" size=\"2\"><a 

href=\"/company/main_download.html\">Desktop X: drive</ax/f ontx/bx/td>\n' ) ; 
document . write ( 1 </t r>\n 1 ) ; 

document. write ( 1 <tr align=\"left\" valign-\"top\">\n' ) ; 

document, write ('<td width=\"38\"ximg src=Wgraphics/internal/icon- 
affiliates. gif \ w width=\"38\" height=\"28\" alt=\"Af f iliates\"x/td>\n 1 ) ; 

document.write(»<td align=\"lef t\" valign=A"middle\" width=\"100\"xbxf ont 
face=A"Arial, Helvetica, sans-serif\" size=A"2\"Xa 
href =\ " /af f iliates/bef ree/index . html\ ">X : drive 
Affiliate</ax/fontx/bx/td>\n' ) ; 

document .write ( T </tr>\n' ) ; 

document.write( T <tr align=\"lef t \" valign=\"top\">\n' ) ; 

document.write( f <td width-\"38\"ximg src=Wgraphics/internal/icon-f aq. gif \" 
width=\"38\" height-\"32\" alt=\"FAQs\"x/td>\n' ) ; 

document, write ('<td align-\"left\" valign=\"middle\" width=\"100\"xbxf ont 
face-\"Arial, Helvetica, sans-serif\" size=\"2\"Xa 
href=\"/company/faq.html\">FAQ</aX/fontx/bx/td>\n f ) ; 

document . write ( 1 </tr>\n 1 ) ; 
document . write { * </table>\n ' ) ; 

document .write ( 1 </td>\n' ) ; 
document .write { ? </tr>\n' ) ; 

document. write ('<tr align=\"lef t\" valign-\"top\">\n 1 ) ; 

document, write ('<tdxa href=\"/cgi-bin/signup_f orm. cgi\"ximg 
src=\"/graphics/internal/sign-up-now.gif\" width=\"138\" height=\"58\" 
alt-\"Sign Up Now !\" border=\"0\"x/ax/td>\n' ) ; 

document. write ( 1 </tr>\n' ) ; 

document. write ( ! <tr align=\"lef t\" valign=\"top\">\n 1 } ; 
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document. write ( f <tdximg src=Wgraphics/internal/whats-hot . gif \" 
width=\"138\" height=\"19\" alt=\"What\ ' s Hot ?\"xbrximg 
src=\ f 7graphics/internal/divider.gif\" width=\"138\" height=\"5\" 
alt=\"Divider\ f, x/td>\n' ) ; 

document . write ( 1 </tr>\n 1 ) ; 

document. write C<tr align=\"lef t\" valign=\"top\">\n' ) ; 

document. write ('<td><a href=V7f reebies/english/f reebiesout .htmlV'ximg 
src=Wgraphics/internal/freebies.gif\" width=\"138\" height=\"82\" alt=\"Check 
Out Freebies - Click Here\" border=\"0\"x/a><br><img 
src-\"/graphics/internal/divider.gif\" width=A"138\" height=\"5\" 
alt^'DividerVx/td^n' } ; 

document .write { , </tr>\n' ) ; 

document. write { '<tr align=\"lef t\" valign=A"top\">\n f ) ; 

document .write ( 1 <tdxa href = W company /ma in_down load. htmlV'ximg 
src=\ H /graphics/internal/btn_get_application.gif\" width-\"138\" height=\"82\" 
alt=\"Download the desktop application 1 V border=\"0\"x/a><brximg 
src-\"/graphics/internal/divider.gif\" width- V'138\" height=\"5\" 
alt^V'DividerV'x/td^n' ) ; 

document . write { 1 </tr>\n ' ) ; 

document, write <'<tr align=\"lef t\" valign=\ n topV f >\n' ) ; 

document . write { '<td><a href-Wdemo/ index. htmlV'ximg 
src-\"/graphics/internal/btn_skipdownload.gif\" width=\"138" height=\"82" 
alt=\"Skip the download! \" border-V'OV'x/aXbrXimg 
src=\"/graphics/internal/divider.gif\" width=\"138\" height=\"5\" 
alt=\"Divider\"x/td>\n f ) ; 

document. write ('</tr>\n' ) ; 

document .write ( 1 </table>\n f ) ; 



document.closeO ; 
return true; 

} 



// Added by Martin Hald 
function PathRemovePref ix (path) 

{ 

return path . substring ( 10, path. length) ; 
} 

// Function that redraws the file explorer 

functidn show() 
{ 

var oDocument = FrameObject ( ) ; 

oDocument . open ( "text/html" ) ; 
oDocument . write ( "<html>\n" ) ; 
oDocument . write ( " <head>\n" ) ; 



oDocument . write ( "</head>\n" ) ; 

oDocument. write C<body BGCOLORS" + XDBackgroundColor ( ) + BACKGROUND-" 1 
•f XDBackgroundlmage ( ) + 1 "> 1 ) ; 

oDocument . write (XD_sNewdoc) ; 



XDdisplayDisklnfo (oDocument) ; 

oDocument . write ( "</body>\n" ) ; 
oDocument . write ( "</html>\n M ) ; 
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oDocument . close ( ) ; 
XDref reshAHButtons ( ) ; 

} 

// parses the XML tree from the top frame and first calls show. 
// This must be called on load of the main page, 
function process (sExtra) 
{ 

if (XDjgsAction == 1 ■ ) 
{ 

grove = Xparse (XD_gsXML) ; 

//this resets the variables that track how many files and folders 

are selected 

//don't reset if we are going into an action 
XDresetSelected ( ) ; 

} 

// If we have just performed an action that involved a folder then 
//we will open that folder so the user can see the results of the 
// action. To do so we update the old directory listing so that 
// the directory from which the action took place gets opened, 
if (XDjgnSelectedFolderlD != ' ') 

XD_gsPreviousGrove. index [XD_gnSelectedFolderID] .attributes. show = 1 

} 

// Now sync the view of the filesystem between the current and 

// previous views. 

synch (XD_gsPreviousGrove, grove) ; 

//reset attributes . selected for all items so that blue line does not get 

drawn 

XDresetAllSelected ( ) ; 

} 

function BuildUpload { ) 
{ 

var oDocument = FrameObject ( ) ; 
XD_gsActionUpload = true; 
HTMLGenericStart (oDocument) ; 

// var rand_num = parent . createRandomID () ; 
var rand_num = createRandomID () ; 

if (XD_gbExtraHelp) 
{ 

oDocument. write (XDHelp (XD_gsHelpFileUpload) ) ; 

} 

oDocument . write ( "</ TABLE >\n" ) ; 

oDocument . write ( 1 <p>\n 1 ) ; 

oDocument . write (XDHelp (XD_gsClientAd) ) ; 
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oDocument . write ( 1 </p>\n 1 ) ; 

oDocument, write ('<form name«"f ormjipload" method="POST" action="/cgi- 
bin/f ile_save.cgi" onSubmit="return 

parent . parent . parent . openUpload (parent . parent . parent . XDCheckFormlnput ( ) , \ ' / cgi- 
bin/f i le_upload_stat . cgi?id- ' +randjcium+ f \ 1 , \ T window\ ' , ( this ) ) ; " 
TARGET="centerview" 1 ) ; 

// oDocument.write( f <form name-"f orm__upload" method="POST" action="/cgi- 
bin/file_save.cgi" onSubmit="return (parent .parent .parent .XDCheckFormlnput ( ) ) ;" 
TARGET="centerview" 1 ) ; 

oDocument .write ( 1 enctype="multipart/form-data"> 1 +"\n") ; 
var results = T 1 ; 

results += '<input type="hidden" name- "sFolderCur rent" value-"' + 
XDSelectedFolder () + , ">\n'; 

oDocument . write'(results) ; 

oDocument. write ( 1 <input type=hidden name=id value= 1 +rand_num+ r > 1 ) ; 

oDocument . write ( 1 <TABLE cols=2> ' +"\n" ) ; 

for (var i-1; i<=5; i++) 
{ 

oDocument. write { '<trxtd valign="top" width-"30"XFONT face="verdana, 
arial, sans" size="-l"><b> f + XD_gsFile + i + ': </bx/FONTX/tdXtdXFONT 
face-" verdana, arial, sans" size="-l"xinput type="f ile" name="f ile_to_uploadJ3 1 
+ i + ' size="20"x/FONTx/tdX/tr> , +"\n") ; 

} 

oDocument . write ( 1 </ tr> 1 + " \n" ) ; 

oDocument. write ( *<tr valign="top"> '+"\n<td colspan=2>\n") ; 

oDocument . write ( f <center> 1 + " \n" ) ; 

oDocument .write (XDFormSubmitButtons ( ) ) ; 

oDocument .write ( 1 </center> 1 +"\n") ; 

oDocument . write ( 1 </td> 1 + "\n" ) ; 

oDocument . write ( f </tr> f +" \n" ) ; 

oDocument . write ( 1 </TABLE> 1 ) ; 

oDocument . write ( 1 </body> T + " \n" ) ; 

oDocument. write { , </html> T +"\n") ; 

oDocument . close { ) ; 

XD_gnFrameHeight= 1 85 1 ; 

return true; 

} 

function BuildCreate ( ) 
{ ' 

var oDocument - FrameObject ( ) ; 
HTMLGenericStart (oDocument) ; 

if (XDjgbExtraHelp) 
{ 

oDocument .write (XDHelp (XD_jgsHelpCreateFolder ) ) ; 

} 

oDocument .write { '<form name="f orm_create" action-"/cgi- 
bin/folder_create.cgi" method="POST" onSubmit="return 
parent. parent. parent .XDCheckFormlnput () ;" target-"centerview"> 1 ) ; 
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var results = 1 1 ; 

results +« '<input type= "hidden" name="sFolderCurrent " value= n, + 
XDSelectedFolderO + , ">\n l ; 

oDocument . write { results ) ; 

oDocument. write { '<trxtd valign=centerXB> T + XD_gsFolderName + 1 :</b> 1 ); 
oDocument. write { '<input type="text" name="sFolderNew" value=""><br>' ) ; 
oDocument . write (XDFormSubmitButtons ( } ) ; 
oDocument . write ( T </tdx/tr> 1 ) ; 



oDocument . write ( f </TABLE> 1 ) ; 
oDocument .write ( 1 </body> T +"\n" ) ; 
oDocument. writ e( ■ </html> f +"\n") ; 
oDocument . close { } ; 
XD_gnFrameHeight='85 T ; 
return true; 



function BuildRename ( ) 
{ 

var oDocument = FrameObject ( ) ; 
HTMLGenericStart (oDocument) ; 

Q ' if (XD gbExtraHelp) 

.KIRK. 

y { 

\| oDocument . write (XDHelp (XD_gsHelpFolderRename) ) ; 

*y oDocument .write ( *<form method=" POST" name="f orm__rename" action="/cgi- 

bin/selected_rename.cgi" onSubmit=" return 
!:: " 5 parent . parent . parent . XDCheckFormlnput ( ) ; " 1 ) ; 

* ' oDocument. write { ' target-"centerview" value=" * +XDSelected { ) + ' ">\n 1 ) ; 

j*f* var results = 1 1 ; 

flj results += f <input type-"hidden" name="sFolderCurrent " 

M value=" 1 +XDSelectedFolder ( ) + • ">\n 1 ; 
M oDocument . write ( results ) ; 

□ oDocument.write( f <trxtd valign=centerXB> ' + XD_gsNewName + , :</b> 1 ); 

oDocument. write ( ' <input type="hidden" name="sItemCurrent " value=" r + 
XDSelectedO + , ">\n'); 



if (XDProf ileEditExtensions ) 
{• 

oDocument .write ( T <input type-"text" name="sItemNew" value^" 1 + 
XDSelectedThingName { ) + ' ">\n* ) ; 

oDocument .write ( '<input type="hidden" name="sItemExtension" 
value="">\n' ) ; 
> 

else 
{ 

oDocument .write ( '<input type="text" name="sItemNew" 
value=" 1 +XDSelectedThingNameMinusExtension (}+'">' +XDSelectedThingNameExtension { ) 

oDocument .write ( ' <input type="hidden" name="sItemExtension" 
value=" 1 +XDSelectedThingNameExtension ( ) + 1 ">\n f ) ; 
} 

oDocument .write (XDFormSubmitButtons () ) ; 
oDocument . write ( 1 </tdx/tr> ' ) ; 
oDocument . write { 1 </TABLE> 1 ) ; 
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oDocument. write ( ' </body>' +"\n" ) ; 
oDocument . wr i t e ( ' < / html> ' + " \n " ) ; 
oDocument . close ( ) ; 
XD_gnFrameHeight=' 85 ' ; 
return true; 

} 

function BuildDelete ( ) 
{ 

var oDocument = FrameOb ject ( ) ; 
HTMLGenericStart (oDocument) ; 

var pathToFiie = XDSelectedO; 

var lastSlash = pathToFiie . lastlndexOf ( f / ' ) ; 

var file = pathToFiie . substring (lastSlash+1, pathToFiie . length) ; 

if (XD__gbExtraHelp) 
{ 

oDocument .write (XDHelp (XD_gsHelpDelete) ) ; 

} 

|^ oDocument .write ( T <form name="f orm__delete" action="/cgi- 

m bin/selected_delete.cgi" method="POST" onSubmit=" return 
j2 parent. parent .parent. XDCheckFormlnput () ; " target="centerview">' ) ; 
var results = ' * ; 

N results += '<input type=" hidden" name="sFolderCurrent " value="'+ 

^ti XDSelectedFolder { ) +'">\n T ; 

N oDocument .write (results) ; 

\! oDocument. write( '<trxtd valign=center><B> ' + XD_gsSureDelete + f ' + file 

U1 + '?</*»'); 

5 " oDocument .write ( '<input type="hidden" name="sItemCurrent " value=" ' + 

H XDSelectedO + , "><br> t ); 

Jf5 oDocument .write ( '<input type="hidden" name-" sFolderCur rent" value-" 1 + 

I'i XDSelectedFolder ( ) + 1 "><br> ' ) ; 

: ps * oDocument . write (XDFormSubmitButtons ( ) ) ; 

S3 oDocument . write ( 1 </tdx/tr> 1 ) ; 

P?j HTMLGenericEnd (oDocument ) ; 

XD__gnFrameHeight= ' 85 1 ; 

return true; 

} 



function BuildExplorer (grove, sStartDirectory) 
{ 

var returnValue = true; 

if (XD_gsAction == 'Upload') 

returnValue = BuildUpload ( ) ; 
else if (XD_gsAction = 'Create 1 ) 

returnValue = BuildCreate ( ) ; 
else if (XD_gsAction == 'Rename') 

returnValue = BuildRename ( ) ; 
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} 

else if (XD_gsAction == 1 Delete 1 ) 
{ 

returnValue ~ BuildDelete { ) ; 

} 

else 
{ 

var result = 1 1 ; 
var nDepth = -2; 

result 1 <TABLE compact border=0 cellspacing=0 cellpadding-4 
width= f,, + XD_gnExplorerTableWidth + l,r >\n , ; 

result += XDFormSubmitButtons (1) ; 

result "<trxth align=\"left\ ,, > n + XDExplorerFont ( ) + '<font 
size^'^' + XDPossesive(XD_gsFirstName + 1 1 + XD_gsLastName) + " X: drive <BR>" 
+XDDiskTotal()+" "+XD_gsCapacity+", " 
+XDDiskFree ( ) + " "+XD_gs Remaining 
+ "</thxth align=\"left\"> ,, + 

XDExplorerFont () +'<font size="2"> f + XD_gsSize + "</th><th 
align-\"left\">"+ 

XDExplorerFont ()+ T <font size="2">' + XD_gsLastModif ied + 
"</thx/tr>\n"; 

result += dotag (grove, sStartDirectory, nDepth); 
result "</TABLE>\n"; 
XD__sNewdoc = result; 

show ( ) ; 



fy //johngaa 11/22/99 

//Highlight bug fix 
U if (XD_gsXOffset || XD_gsYOf f set ) 

h { 

XD_goFrameFileExplorer.scrollTo(XD_gsXOffset,XD_gsYOffset) ; 
//end of johngaa bug fix 



} 

return returnValue; 



} 



function XDPossesive (name) 
{ 

var length = name. length; 
var lastChar - name . charAt (length-1) ; 
var possesive=name + " T s"; 
if (lastChar == f s' ) 
{ 

possesive = name + M '"; 
} 

return possesive; 

} 

function XDExplorerFont ( ) 
{ 
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return f <font f ace="verdana, arial, sans">'; 
} 

// constructs the HTML from the file explorer from the parsed XML 

function dotag(tag, path, nDepth) 

{ 

path +» ' /' + tag. name; 

var result - 11 ; 

var sCellColor = new String (); 

var slconlmage = new String (); 

var s Folder Pointer = new String (); 

var fileSize = new String (); 

var fileString = new StringO; 

var sDate; // The last modified date and time stamp 



//johngaa 11/23/99 
//highlight netscape bug fix 
// var sFlipFunction = new String ( 1 parent .parent . parent . flip ( 1 + tag.uid + 

' ) ' ) ; 

if (navigator. appName == "Netscape") 
{ 

var sFlipFunction = new String ( T parent .parent .parent . flip ( 1 + tag.uid + 
Cj ' , window. pageXOff set , window. pageYOff set) ' ) ; 
} 

else 
{ 

var sFlipFunction = new String ( 'parent . parent .parent . flip ( ' + tag.uid + 
1 , document. body. scrollLeft, document. body. scrollTop) T ) ; 



Ul 



} 



fl //johngaa orginal 11/22/99 

pjl //highlight netscape bug fix 

//var sSelectToggleFunction = new 
String ( 'parent .parent .parent .XDselectToggle ( T + tag.uid + ')'); 
if (navigator . appName == "Netscape") 
{ 

1 var sSelectToggleFunction = new 
String( 'parent .parent .parent. XDselectToggle ( 1 + tag.uid + 
1 , window . pageXOff set , window . pageYOff set ) 1 ) ; 
} 

else 
{ 

var sSelectToggleFunction = new 
String ( 'parent .parent .parent .XDselectToggle ( 1 + tag.uid + 
1 , document .body. scrollLeft, document .body. scrollTop) 1 ) ; 
} 

//end of johngaa bug fix 

// If the object is selected, 

// then add it to the selected arrays 

// and up the selected counts 

// and set the cell color to selected 
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//set background color of the cells depending on status: selected, move 
or at rest 

if (tag . attributes . selected) 
{ 

XD_gnSelectedCount s =l; 
sCellColor *=XD_gsSelectedColor ; 

XD_gsSelectedList += PathRemovePref ix (path) + f + f ; 

if (tag. attributes. folder) 
{ 

XD_gnSelect edFolderCount=l ; 
XD_gnSelectedFolderID - tag.uid; 

XD_gsSelectedFolderList += PathRemovePref ix (path) + ■ + '; 

} 

else 
{ 

XD_gnSelectedFileCount=l; 

} 

} 

y else if (tag . attributes .move) 

S { 

"5 // ELSE IF, it is set to move, 

^ // Then change the colors and 

~' H sCellColor = XD_gsMoveSelectedColor ; 

H > 

I; N else 

H { 

\f\ // ELSE, set the cell color to not selected 

g sCellColor = XD_gsNotSelectedColor ; 

n i 



if (tag. attributes . folder) 
{ 

// SET special graphics and links for folder. 
nDepth++; 

if (tag. attributes . show) 
{ 

if (tag . attributes .move) 
{ 

// The folder is open 

sFolderPointer = '<IMG SRC="' + 
XD_gimgOpenFolderPointer + 1 " BORDER="0">\n 1 ; 

slconlmage = 1 <IMG SRC= r " + XD_gimgOpenFolder + ,n 
BORDER="0" ALIGN="absmiddle" f +"\n\t"+ , HSPACE="2" VSPACE="0" HEIGHT="16" 
WIDTH="16">' ; 

} 

else 
{ 

sFolderPointer = 1 <A HREF=" javascript : ' + sFlipFunction 
+ T ;"XIMG SRC=" f + XD_gimgOpenFolderPointer + 1 " BORDER="0"x/A>\n ■ ; 

slconlmage = 1 <IMG SRC= M1 + XD_gimgOp en Folder + 1 11 
BORDER="0" ALIGN="absmiddle" '+"\n\t"+ *HSPACE="2" VSPACE="0" HEIGHT="16" 
WIDTH="16"> f ; 

} 

} 
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else 

sFolderPointer = f <A HREF-" j avascript : 1 + sFlipFunction + • ; "XIMG 
SRC="' + XD gimgClosedFolderPointer + +"\n"+ ' BORDER="0"></A>\n' ; 

slconlmage - "<IMG SRC=" ' + XD_gimg Folder + BORDER="0" 
ALIGN="absmiddle" -+"\n\t"+ *HSPACE="2" VSPACE="0" HEIGHT="16" WIDTH="16"> ' ; 

} 

} 

else 

// This is a file and not a folder so show a FILE icon and do not 

show any + or - 

sFolderPointer = ExplorerBlankFolderPointer ( ) ; 

slconlmage - 1 <IMG SRO" ' + XD_gimgFile + BORDER= "0" 
ALIGN="absmiddle" »+"\n\t"+ 'HSPACE="4" VSPACE-"0">' ; 
} 



if (tag . attributes . size) 
{ 

// SET file size indicator is attribute is present 
fileSize = XDExplorerFont () +tag . attributes . size* 1 k 1 ; 

} 

else 
{ 

fileSize = 1  '; 

} 

if {tag. attributes. lastModif ied) 
{ 

sDate = tag. attributes. lastModif ied; 

} 

else 
{ 

sDate = 1   1 ; 

} 

if (tag. attributes .move) 
{ 

> fileString= slconlmage; 

} 

else 

fileString = 1 <A HREF=" javascript : 1 + sSelectToggleFunction + T ;">' 
1 \n' + slconlmage; 
} 

if ( (tag. attributes. folder) || ( ! XDAction ( r Move 1 ) ) li 
(tag. attributes .move) ) 
{ 

// ONLY show IF it is (a folder or not in moving) 
//OR the object is question is being moved, 
result += 1 <A NAME=" * + tag. name + »"></A><TR>'; 

result 1 <TD BGCOLOR-" 1 + sCellColor + valign="absmiddle"><p> ' 
result += "\n"; 
result += "\n"; 
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nj 



result +» ^indent (nDepth) ; 
result +~ sFolderPointer; 
result +- fileString; 
result += XDExplorerFont () ; 
result += 1 <FONT SIZE^'^'V ; 
result += tag. name; 
result += , </A></TD> 1 ; 
result += "\n"; 
result +« "\n"; 

result += 1 <TD BGCOLORS" + sCellColor + 
valign="absmiddle"x P XFONT SIZE="2">' + fileSize + 1 </FONT></TD> ' ; 

result += 1 <TD BGCOLOR^"' + sCellColor + f " 
valign="absmiddle"XpXFONT SIZE= ,r 2"> f ; 

result += XDExplorerFont ( ) ; 

result +== sDate; 

result += "</FONTx/td>\n"; 

result += '</TR> f ; 
result += "\n"; 

} 

if (tag. attributes . show) 
{ 

for (var i = 0; i < tag . contents . length; i++) 
{ 

if (tag. contents [i] .type "element") 
{ 

//To sort we simply recursivly call ourselves with the 



next element 



// in the sort order 

result += dotag (tag. contents [i] , path, nDepth) ; 
result += "\n"; 



n \ 

M } 

return result; 



jSSSi } 



function ExplorerBlankFolderPointer () 
{ 

return '<IMG SRC="/images/explorer/f not . gif " WIDTH-15 HEIGHT=15 
BORDER=0>\n l ; 
' } 

// returns a true if the tag has any children that are selected 
function XDopenChild ( tag, children) 
{ 

var result = false; 

if (children) 
{ 

if ( (tag. attributes. selected) | I (tag. attributes .move) ) 
{ 

//added so user can close folder if items are selected 
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//deselects item in folder if folder is closed 
tag. attributes . selected=f alse ; 



//original 
return true; 



for (var i = 0; i < tag. contents . length; i++) 
{ 

if (tag. contents [i] .type == "element") 
{ 

if (XDopenChild (tag. contents [i] , 1) ) 
{ 

//added so user can close folder if items are selected 
//deselects item in folder if folder is closed 
grove. index [i] .attributes. selected = false; 
return false; 



} 

% 5 

"4 



//original 
//return true; 

} 

} 



return result; 
} 



function ^indent (count) 
{ 

var spaces = f 1 ; 
for (i=0; i<=count; i++) 
{ 

spaces += 1         1 ; 
} 

return spaces; 
} 



// This- is called when a item name is clicked, 
// either flipping it open or closed 

//original johngaa 11/23/99 
//highlight netscape bug fix 
//original function flip (id) 
function flip (id, xof f set, yof f set ) 
{ 

//johngaa 11/23/99 
//highlight netscape bug fix 
XD_gsYOffset = yoffset; 
XD_gsXOffset = xof f set; 



//end of johngaa add 
XDresetSelectedO ; 



// before closing, check to see if it has selected children. 
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// If child is selected, then do not allow to close dir. 
if ( !XDopenChild( grove. index [id] , 0) ) 
{ 

if (grove, index [id] .attributes, show == 1) 
{ 

grove. index [id] .attributes. show = 0; 

} 

else 
{ 

grove . index [id] . attributes . show - 1; 

} 

} 

BuildExplorer (grove, XD__gsRootDirectory) ; 
} 

// This is called when an item icon is clicked, causing 
// it to toggle between selected and not selected 

//original johngaa 11/22/99 

//highlight netscape bug fix 

//function XDselectToggle (id) 

function XDselectToggle (id, xof f set, yof f set ) 



//johngaa 11/22/99 
//highligt bug fix 
XD_gsYOffset = yof f set; 
XD_gsXOffset = xof f set; 
//end of johngaa bug fix 

// Martin to solve bug where we log in and we get the error grove. index 
// is not an object 
if (! grove. index) 
{ 

return; 
} 

if (id>=0) 
{■ 

XDresetSelected ( ) ; 

if (grove. index [id] . attributes . selected) 
{ 

grove. index [id] .attributes. selected = false; 

} 

else 
{ 

XDresetAllSelectedO ; 
XD_gnSelectedCount ++ ; 

grove. index [id] .attributes. selected = true; 

if (grove . index [id] . attributes . folder) 

{ 

XD_gnSelect edFolderCount ++ ; 

grove . index [id] . attributes . show = 1; 

} 



m 
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else 
{ 

XD_gnSelect edFileCount++ ; 

} 

} 

} 

else 
{ 

XDresetAllSelected ( ) ; 

} 

//if this is the page generated directly after a login 
//make XDrive the default and select it 

//then reset variable so we no longer select Xdrive as the default 

if (XD_gnLogin==l) 

{ 

grove . index [ 0 ] . attributes . select ed=t rue ; 
XD_gnLogin=0 ; 

} 

//this is called every time the file explorer changes 
//including creates, moves, deletes and renames 
//use a setTimeout for NS on NT because otherwise the 
//browser crashes if there is no wait period 
setTimeout ( "BuildExplorer (grove, XD_gsRootDirectory) 50) ; 
//BuildExplorer (grove, XD_gsRoot Directory) ; 



} 



// function to check to see if the root is selected 
function XDRootSelected ( ) 
{ 

if (grove . index [0] . attributes . selected) 
{ 

return true; 
} 

return false; 
} 

// This sets a selection to a value 
function XDselect (id, value) 
t 

// Martin to solve bug where we log in and we get the error grove. index 
* // is not an object 
if ( i grove. index) 
{ 

return; 
} 

if (grove. index [id] . attributes . folder ) 
{ 

grove . index [id] . attributes . selected - true; 
grove. index [id] .attributes. show = value; 
} 

} 
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// Deselects everything if so that only one thing can be selected 
// at a time, unless the the multipleSelect checkbox from myFrom 
// is selected, 
function XDresetAllSelected ( ) 
' { 

var length = grove . index. length; 

for (var i =0; i < length; i++) 
{ 

grove. index [i] .attributes. selected = 0; 
} 

} 

function XDresetAllMovedSelected ( ) 
{ 

// Martin bug fix — after the first login could not show X: drive 
if (! grove . index) 
{ 

return; 

Q var length = grove. index. length; 



Ul 



var oFrame = XDjgoFrameUsagelnf o; 
for (var i =0; i < length; i++) 

{ 

gro ve. index [i] .at tributes. move = 0; 
} 

} 



// resets the number of selected, called by both flip and XDselectToggle 
function XDresetSelected ( ) 
{ 

XD_gsSelectedList = ' 1 ; 
5 J XD_gnSelectedCount = 0; 

XD_gnSelectedFolderCount =0; 
XDjgnSelectedFileCount =0; 
XD_gsSelectedFolderList = ""; 
} 

function strip (str) 
{ 

var A = new Array (); 

A = str. split ("\n") ; 
str = A. j oin { " " ) ; 
A = str. split (" ") ; 
str = A. join("") ; 
A = str. split ("\t") ; 
str = A. join("") ; 

return str; 
} 

function entity (str) 
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{ 

var A = new ArrayO; 

A = str. split ("&") ; 

str = A, join { "& " ) ; 

A = str. split ("<") ; 

str = A. join { "&lt ; ") ; 

A = str. split {">") ; 

str - A. join ( "&gt ; ") ; 

return str; 
} 

function synch (prev^grove, new_grove) 
{ 

var prev_tag, new_tag, pi, ni; 



if (! prev_grove) 
{ 

//set a flag so we know the first time a user logs in 
//there will be no prev_grove in this one case 

//flag is used to show blue bar on XDrive folder only right after logging 



XD_gnLogin=l; 
return; 
} 

//NS4.05 doesn't like this syntax 

//change to new syntax 

//if (! prev_grove . attributes) 

if (prev_grove. attributes I = ' f ) 
{ 

return; 
} 

if ( ! new_grove . contents ) 
{ 

return; 
} 

if (prev_grove . attributes . show) 

{. 

pi = 0; 

for (var ni = 0; ni < new_grove . contents . length; ni + +) 
{ 

if (new_grove . contents [ni] . type "element") 
{ 

Lf (prev__grove. contents [pi] ) 



prev_tag = pre v_grove . contents [pi] ; 

f (new_grove. contents [ni] ) 

new_tag - new_grove . contents [ni] ; 
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if { (prev_tag) && (new_tag) ) 
{ 



exists before checking them 



if (prev_tag.name ===== new_tag. name) 
{ 

// Make sure the contents for this object 
// to avoid javascript "has no properties" 



errors , 



if (prev_grove . contents [pi] 
{ 



prev__grove . contents [pi ] . attributes ; 



new_grove . contents [ni] .attributes = 



} 



ise if (prev_tag.name > new__tag . name ) 
pi++; 

else 

ni++; 

} 

synch (prev_grove. contents [pi] , new_grove . contents [ni] ) ; 



pi++; 
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//saveToXdrive.js 



var win = external .menuArguments; 

ExtMen = external .menuArguments; 
ExtMenTag = ExtMen. event . srcElement; 
ExtMenDoc = ExtMen. document ; 

var url; 



function f indAnchor (el) { 

while ((ell-null) && ( (el . tagName ! ="A") && (el .href !="")) ) 

el = el .parent Element; 
return el; 



\ function f indUrl ( ) { 
s var re; 

: var IMGinsideLink = false; 

I 

//alert ("Tag name is " + ExtMenTag. tagName) ; 



switch ( ExtMenTag . tagName ) { 

// if a "LINK", return the link's URL 

case "A" : 

url = ExtMenTag. href ; 

break; 

case "TD": 

var el - win . document . selection. createRange () ; 
a = f indAnchor (el. parent Element (0) ) ; 
if (a != null) 
{ 

url = a. href; 
} 

break; 

// if it was an image, then this gets complicated: 
case "IMG" : 

// check all links to make sure we aren't in one: 
for ( count « 0; count < ExtMenDoc . links . length; count ++ ) 
if ( ExtMenDoc. links ( count ). contains ( ExtMenTag ) ) { 
IMGinsideLink = true; 
break; 
} 



// if none was found, return the image URL: 
if ( ! IMGinsideLink ) 
url = ExtMenTag. src; 
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else { 

url « ExtMenDoc. links ( count ) .href; 

} 

break; 

default : 

url = ExtMenDoc. href ; 

break; 

} 

// Replace "." 
re = /%2e/g; 

url = url . replace (re, "."); 

// Replace " : " 
re = /%3A/g; 

url = url . replace (re , "." ); 



// See if from hotfiles ZD-Net 
1*1 if ( url. indexOf ("hot files. zdnet") != -1) 

5 var start Index; 

var endlndex; 

startlndex = url. indexOf ( "ref resh_url=" ) ; 
s i if (startlndex != -1) 

U'i startlndex += 12; 

>. endlndex = url . indexOf ( startlndex); 



if (endlndex !- -1) 
{ 

url = url. substring (startlndex, endlndex); 

C3 } 

i ^ } 

// see if from "download.com" C-Net 
else if (url. indexOf ("download.com") != -1) 
{ . 

var indexHttp; 
var indexFtp; 



indexHttp = url . lastlndexOf ( "http: //" ) ; 
indexFtp = url . lastlndexOf ( "ftp ://") ; 
index - indexHttp; 
if (indexFtp > indexHttp) 
index = indexFtp; 

//alert ( "index is " + index ); 

if (index > 0) 
{ 

var tempUrl; 

tempUrl = url . substr (index) ; 
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url = tempUrl; 
} 

} 



; JS?S?. 



} 

f indUrl ( ) ; 

//alert ("begin") ; 
//alert (url) ; 

// Call X: Drive to perform actual copy 
xd_skip (url) ; 
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//securejogin.js 

// 

// Written 12/1/99 
// Description: 

// Allow users to login securely from the start 

// 

// 



•-3.-? 



function getState() 
{ 

// 

//return the value of the checked item 
//called by checkSubmit 
// 

var state; 

if (document .Login. bSecurity[0] .checked) 
{ 

state = document .Login. bSecurity[0] .value; 

} 

else 

{ 

state = document . Login .bSecurity [ 1] .value; 
yj return state; 

H ) 

I'fi function checkSubmit { ) 

: r; { 

// 

// checks if secure toggle button is pressed or not 
// if it is don't allow the submition of the current 
// form but submit the secureLogin form 
// 

if (getState() ===== "on") 

flf < 

document .secureLogin. user, value = document . Login, user . valued- 
document . secureLogin. pass . value = document . Login. pass . value; 
document . secureLogin . submit ( ) ; 
return false; 

} 

else 
{ 

return true; 

} 

return false; 

} 

function writeForm() 
{ 

// 

// creates a the secure form 
// 

var fullHostName = XDGetFullHostName ( ) ; 

var cgiAction = "https://" + fullHostName + "/cgi-bin/login. cgi" ; 
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var formStr; 

formStr = "<form name=\"secureLogin\" method=\"post\" action=\""; 
formStr += cgiAction; 
formStr += "\">"; 

formStr += "<input t ype=\" hidden \" name-\"user\" value=\"\">" ; 

formStr += rr <input type=\"hidden\" name=\"pass\ " value=\"\ ">" ; 
formStr += "<input type=\"hidden\" name=A"bSecurity \" 
value=\ "on\ ">\n< / f orm>" ; 

document . wr i t eln { formStr ) ; 



function clickSecureState ( ) 
{ 

var tempL = new String (document . location) ; 
var start = -1; 

start = tempL.indexOf ("https") ; 
U if (start != -1) 

Q { 

f?l if (document .Login. bSecurity[0] .value — "on") 

SJ { 

, ; document . Login . bSecuri ty [ 0 ] . click ( ) ; 

m i 

else 

y { 

Ul document .Login.bSecurity [1] . click () ; 

} 

0 } 

m } 
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//skip.js 



//***********************************^ 

// xd_skip: Popup a skip the download window for the X: Drive skip 

// the download service. 

// 

// Inputs: 

// file_url : the absolute URL of the file to fetch 
// file_name : the name to call the stored file 
// file_size : the file size in KB 
// 

// Outputs: 
/ / none 

//******************************^ 

var skipPartner; 
var skipLanguage; 
var height * 200; 
var width = 575; 

function xd__change_location (url) 
{ 

document . location=url ; 

} 



function xd_skip { f ile_url, filename, alt_url, catid, gid, sid, langauge, partner) 
{ 

var base_url = "http://www.xdrive.com/cgi--bin/skip_the_download.cgi"; 

if (! file_name || file_name . length = 0) 
{ 

var ii; 

for (ii=0; ii<= file_url . length; ii++) 
{ 

if (file_url.charAt (ii) == '/') 
{ 

f ile_name — 1 1 ; 

} 

else 
{ 

file_name = file_name + f ile__url . charAt (ii ) ; 

} 

} 

} 

var params = "FILEURL=" + escape (file_url ) + 
"&FILENAME=" + escape ( file_name ) + 
"&ALTURL=" + escape (altjirl) ; 

if (langauge) { 

skipLangauge = langauge; 

} 
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if (partner) { 

skipPartner » partner; 



if (skipPartner) 

params = params + "&STDPARTNER=" + escape ( skipPartner ) ; 



f?5 



ru 



if 



if 



if 



if 



if 



(skipLanguage) 

params = params + Tf &LANG=" + escape (skipLanguage) ; 

(catid) 

params = params + "&CATID=" + escape (catid) ; 
(gid) 

params = params + "&GID=" + escape (gid); 
(sid) 

params = params + "&SID=" + escape (sid); 

skipPartner == 1 cnet 1 ) 

height = 235; 
width = 600; 

} 

url = base__url + "?" + params; 
var d = new Date () ; 
var name = d. getTime ( ) ; 

window. open 
( 

url, 
name, 

1 toolbar=no,menubar=no, scrolibars^no, f ullscreen=no, resizable=no, width= ' 
+ width + \height= T + height 

); 



return; 
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//skipthedownload.js 



<SCRIPT LANGUAGE^" JavaScript" SRC-"http: //www. xdrive. com/js /skip. js"x/SCRIPT> 
<SCRIPT LANGUAGE=" JavaScript" defer> 

var win = external .menuArguments; 

ExtMen = external .menuArguments; 
ExtMenTag = ExtMen. event .srcElement; 
ExtMenDoc = ExtMen . document ; 

var url; 



function f indAnchor (el) { 

while {(el!=null) && ( (el. tagName !="A") && (el. href !="")) ) 

el = el . parentElement ; 
return el; 



H 

S| function findUrl() { 
yj var re; 

\i var IMGinsideLink = false; 

%l 



//alert ("Tag name is " + ExtMenTag. tagName) ; 

:; 3Si switch { ExtMenTag. tagName ) { 

Q II if a "LINK" , return the link's URL 

flf case "A" : 

M url = ExtMenTag. href; 

M break; 

m case "TD": 

var el = win. document . selection. createRange {) ; 
a = f indAnchor (el .parentElement (0) ) ; 
if (a != null) 
{ 

url - a. href; 
} 

break; 

// if it was an image, then this gets complicated: 
case "IMG" : 

// check all links to make sure we aren't in one: 
for ( count = 0; count < ExtMenDoc. links . length; count ++ ) 
if { ExtMenDoc. links ( count ).contains( ExtMenTag ) ) { 
IMGinsideLink = true; 
break; 
} 
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//if none was found, return the image URL: 
if ( HMGinsideLink ) 

url = ExtMenTag.src; 
else { 

url - ExtMenDoc. links { count } .href; 

} 

break; 



default: 

url = ExtMenDoc . href ; 

break; 

} 

// Replace 
re - /%2e/g; 

url = url . replace (re, "."); 

// Replace 
re = /%3A/g; 

url = url . replace (re, "."); 



See if from hotfiles ZD-Net 
(url.indexOf ( "hot files . zdnet" ) 1= -1) 
{ 

var startlndex; 
var endlndex; 

N 

startlndex = url . indexOf ( "ref resh_url=" ) ; 
$ if (startlndex ! = -1) 

fit* startlndex += 12; 

|^ endlndex = url . indexOf ( "&", startlndex); 

^ if (endlndex != -1) 

^ r 

url = url. substring (startlndex, endlndex); 
} 

} 

} . 

// see if from "download.com" C-Net 
else if (url.indexOf ("download.com") != -1) 
{ 

var indexHttp; 
var indexFtp; 

indexHttp - url . lastlndexOf ( "http ://") ; 
indexFtp = url . lastlndexOf ( "ftp: //") ; 
index = indexHttp; 
if (indexFtp > indexHttp) 
index = indexFtp; 

//alert ( "index is " + index ); 



// 

if 



if (index > 0) 
{ 
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var tempUrl; 

tempUrl = url . substr (index) ; 

url = tempUrl; 

} 

} 

} 

f indUrl ( ) ; 

//alert ("begin") ; 
//alert (url) ; 

// Call X: Drive to perform actual copy 

xd_skip (url) ; 

</script> 
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/***************************************************************************** 

* Submit. JS: This javascript class is for all the actions associated with 

* buttons. This class may either open a new window or submit an existing 

* form for server parsing. 
************************************** 



/*************************************************************************** 

* XDCheckFormlnput ( ) - check upload/rename/create input. 

* if there are errors, give then alert, if not, submit 

****************************************************************************/ 

function XDCheckFormlnput ( ) 
{ 

//make sure user is not allowed to upload a blank file 
if (XDjgsAction == 'Upload') 

{ 

sFormName - XD_goFrameFileExplorer . document . form_upload; 

if (sFormName . file_to_upload_01 .value == 11 ) 

{ 

alert (XD_gsAlertUploadEmptyFile) ; 
return false; 

} 

} 

//make sure user cannot create a blank file 

else if (XD__gsAction — 'Create 7 ) 

{ 

sFormName = XD__goFrameFileExplorer . document . form_create; 

if (sFormName. sFolderNew. value== ' ') 

{ 

alert (XD_gsAlertCreateEmptyFile } ; 
return false; 

} 

} 

else if (XD_gsAction == 'Rename') 
{ 

sFormName = XD_goFrameFileExplorer . document . form_rename; 

//do not allow user to rename file the same name it already has 

//find just the file name to compare to what was input 

var lastSlash=sFormName. sltemCurrent . value. lastlndexOf ('/' ) ; 

//if this is a folder of user may edit file extensions, use this 

code 

if ( {parent .parent. XDProf ileEditExtensions ) | 1 
(XD_gnSelectedFileCount==0) ) 
{ 

//allow user to edit extensions so check everything after the 

//last slash 

var 

f ileName=sFormName . sltemCurrent . value . substring (lastSlash+1, sFormName . sltemCurre 
nt. value. length) ; 
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if (fileName ~- sFormName . sltemNew. value) 
{ 

alert (XD_gsAlertRenameSameName) ; 
return false; 

} 

} 

else 
{ 

//do not allow user to edit extensions so need to find last 

V 1 as well 

var lastDot=sFormName . sltemCurrent . value . lastlndexOf { 1 . ' ) ; 
var 

f ileName=sFormName .sltemCurrent . value . substring ( lastSlash+l , last Dot ) ; 

if (fileName == sFormName . sltemNew. value) 
{ 

alert (XDjgsAlertRenameSameName) ; 
return false; 

} 

} 

//check to see if user is trying to name the file/folder nothing 
//give em an« error message if so 
if (sFormName. sltemNew. value == 1 ') 
{ 

alert (XD__gsAlertRenameNothing) ; 
return false; 

} 

} 

else { } 

XD_gsAction « 1 1 ; 
//sFormName . submit ( ) ; 
return true; 



function XDSubmitView (sFormName) { 

// Always start by checking the status and if the status is not active then 
// return and do not perform any actions. 

//if (1 XDfunctionStatus (parent. parent. XD_T00LBAR_BUTTON__VIEW) ) 

if (! XDfunctionStatus (XD_TOOLBAR_BUTTON__VIEW) ) { 
return false; 

} 

var sFixed = 1 ' ; 

var sFileName = XDSelected ( ) ; 

for (i = 0;i <= sFileName . length; i++ ) { 
if (sFileName. charAt (i) == 1 1 ) { 
s Fixed += T + f ; 

} 

else { 

sFixed += sFileName . charAt (i) ; 

} 
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// URL encode/escape string 
sFixed « escape (sFixed) ; 

var sURL = 1 /cgi-bin/f ile_load. cgi/ 1 +sFixed+ 1 ?sFileCurrent=' + sFixed + 
"&source=www . f ileExplorer . view" ; 

XDReaderShow ( sURL, 400,400); 
return true; 

} 

// Justin's upload status stuff. 

function openUpload(form_check, url, name, f) { 

if (! form__check) { 
return false; 

} 

var form_length = f. length; 
var cnt = 0; 

for (var i = 0; i < f. length; i++) { 
var e = f. elements [i] ; 

if ( (e.type ===== "file") && (e . value, length > 0) ) { 
cnt++; 

} 

} 

var amp_nof = "&nof="; 
url += amp_nof + cnt; 

msgWindow = 

window. open (url, name, 1 width=350, height=190, toolbar==no, resize==no, scrollbars=no 1 ) ; 
return true; 

} 

function createRandomID () { 

substr__rand_num = new String (Math, random ()) ; 

return subs tr_rand__num. substring (2, 14) ; 

} 

function XDSubmit Download () 
{ • 

// Always start by checking the status and if the status is not 

// active then return and do not perform any actions. 

//if (! XDfunctionStatus (parent. parent. XD_TOOLBAR_B0TTON_DOWNL0AD) ) 

if (! XDf unctionStatus (XD_TOOLBAR_BUTTON_DOWNLOAD) ) 

{ 

return false; 

} 

var sFileName = XDSelected ( ) ; 

var oDocument = X D_goFrameDat a . document; 

var sExtraPath; 
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sExtraPath * 1 / 1 +sFileName; 



HTMLGenericStart (oDocument) ; 

oDocument . write { f <form name="form_download" target="userData" 
method="POST" action="/cgi-bin/f ile_load. cgi • + sExtraPath + ' " 
enctype="multipart/form-data"> ' + "\n" ) ; 

oDocument .write ( '<input type=" hidden" name="sFileCurrent" 
value^'+sFileName-i-™:^ ) ; 

oDocument. write { f <input type="hidden" name^'mime" value="download"> 1 ) ; 

oDocument .write ( '<input type="hidden" name="source" 
value="www. fileExplorer. download":^ ) ; 

oDocument .write { '<input type="hidden" name="sFolderCurrent " value-" 1 + 
XDSelectedFolder () + 1 ">'); 

//johngaa test add 12/2/99 
oDocument .write ( 1 </form> T ) ; 
//end of johngaa add 

HTMLGenericEnd (oDocument) ; 

oDocument . forms [0] . submit ( ) ; 

return true; 

* } 

3 function XDSubmitNewFolder (sFormName) 

k i 

var sNewFolderName = prompt (XD_gsRename Prompt ) ; 
\i XDFormSetGeneric (sFormName) ; 

vjj XDFormSetFolderNew (sFormName, sNewFolderName) ; 

, ^ sFormName . submit ( ) ; 

Mi } 



\ ■ \ 

'-.■■hi 



flj * XDItemDelete: Delete an item (no prompting here) 

m function XDItemDelete ( ) 

21 { 

var sFileName = XDSelectedList ( ) ; 
XDFormSetGeneric( sFormName) ; 
XDFormSetThingName (sFormName) ; 
sFormName . submit ( ) ; 

} 

* XDSubmitDelete: Verify they can delete the selected item and then 

* redirect to a web page that will prompt them to delete. 



function XDSubmitDelete (sFormName) 
{ 

if ( ! XDAllowChange (XDSelected ( ) ) ) 
{ 

alert (XD_gsAlertDeleteFolder ) ; 
return false; 

} 

location - "delete_prompt.html"; 
return true; 
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function XDBuf ferChange (sFormName, sType) 
{ 

// We popup a new window for them to select a folder from 
XDFormSetBuf ferAction (sFormName, sType) ; 
parent . parent . XDopenFolderSelectWindow ( ) ; 
XDFormSetSelectedFiles (sFormName) ; 

} 

function XDSubmitBuf ferChange (sFolderTo) 
{ 

// This method is being access across frames so we cannot easily pass the 
form name 

// so instead we set a variable equal to what the object would have been. 
sFormName = window. frames [XDjgsControl Frame] . document . form_buffer; 
XDFormSetGeneric (sFormName) ; 
XDFormSetFolderNew {sFormName, s Folder To) ; 
sFormName . submit ( ) ; 

} 

function XDSubmitMove (sFormName) 
{ 

XDFrameMove ( ) ; 

BuildExplorer (grove, XD_gsRootDirectory) ; 

} 

* XDPopupShow: Show a popup browser 
***************************^^ 

function XDReaderShow ( sURL, nHeight, nWidth) { 

nWidth - 500; 
nHeight = 600; 

var r = window. open (sURL, "reader" , "location=no, toolbar=no, menubar=no, " + 
"status=no, resizable=yes, scrolling=yes, scrollbar s^yes, " + 
,l width="+nWidth+" / height="+nHeight) ; 

//*** make sure the opener knows who the parent is 
if (r. opener — null) r. opener = self; 

//*** focus on the newly created window 
//r. focus () ; 

} 

function FrameObject ( ) 
{ 

return XD_goFrameFileExplorer . document ; 

} 

function HTMLGenericStart (oDocument) 
{ 

oDocument . open ( "text /html" ) ; 
oDocument . write ( 1 <html> 1 ) ; 
oDocument . write ( "<head>\n" ) ; 
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oDocument .write ("<link rel=stylesheet href^ 1 /css/style_back. ess ' 
type- 1 text /ess 1 >\n") ; 

oDocument .write ( "</head>\n" ) ; 

oDocument . write ( f <body background= t! 1 + XDBackgroundlmage ( ) + ' " bgcolor=" 1 
+ XDBackgroundCoior () + ,!, > ! +"\n ,T ); 

oDocument . write ( 1 <table><tr> 1 ) ; 

} 

/*********************************^ 
* HTMLGenericEnd: 

it************************************************ 

function HTMLGenericEnd (oDocument) 
{ 

oDocument . write { ' </table> * ) ; 
oDocument .write { ' </body> ' +" \n" ) ; 
oDocument .write ( 1 </html> 1 +"\n" ) ; 
oDocument . close ( ) ; 

} 

function XDBuildForm ( ) 

M { 

^ var form = 1 1 ; 

JSJ var sSubmitButton = f /images/ submit . gif 1 ; 

^ if (XDAction { 1 Move ' ) ) 

w { 

'H form += ! <form name="f orm_buf f er " action="/cgi- 

% 4 bin/buff erjpaste . cgi" ' + 

yj 1 method="POST" target="centerview" r + 

,: 1 parent, parent, parent .XDReset () ; ff > f +"\n"; 

form += ' <input type="hidden" name="sFile" 

J?i value=" 1 +XD_gsMoveSelectedList+ 1 "> 1 ; 
|'f sSubmitButton = 1 /images /move . gif 1 ; 

f*- XD_gnFrameHeight = MO'; 

S } 

jlj form += '<input type=" hidden" name="sFolderCurrent" valuer" T + 

XDSelectedFolder () + '">'; 

form +== 1 <input type="hidden" name="type" value="move"> 1 ; 
fprm += '<input type=" hidden" name="sItemCurrent " value=""> f ; 
form += ! <input type="hidden" name="sFolderNew" value="">'; 

form += T <p><INPUT TYPE="button" VALUE=" 1 + XD_gsButtonSubmit + ' 
onClick="parent .parent .parent .XDSetMove Form (document . forms [0] ) ; "> f + 

•<INPUT TYPE="button" VALQE=" 1 + XD_gsButtonCancel + 1 " 
onClick="parent . parent . parent . XDReset ( ) ; 
parent . parent . parent . XDRef reshExplorer {);">'+ 
'</td> f ; 
form += ' </form>'; 

return form; 

} 

function XDSetMove Form (oForm) 
{ 

oForm. si temCurrent .value - XDSelectedToMove ( ) ; 
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oForm. sFolderNew. value = XDSelectedFolder ( ) ; 



// adding check for target folder 

if (XD_gsSelectedFolderList .length > 0) 

{ 

//check to see if the user is attempting to move the file into 

//the folder it is already in - can't do that 

var slash=oForm. sltemCurrent . value . last IndexOf ("/"); 

var fileDirectory=oForm. sltemCurrent. value. substring(0, slash) ; 

if (oForm. sFolderNew. value f ileDirectory) 
{ 

alert (XD__gsAlertMoveSameFolder) ; 

} 

else 
{ 

// makes sure that the target is not the same as 
// source 

if (oForm. sFolderNew. value == oForm. sltemCurrent . value) 
{ 

alert (XDjgsAlertNoTarget Folder ) ; 

} 

else 
{ 

//call reset and submit form only if they can actually move the 

//else they only get the dialog warning box 
XDReset ( ) ; 
oForm. submit ( ) ; 
} 

} 

} 

else 
{ 

alert (XD_gsAlertNoTargetFolder) ; 

} 



function XDFormSubmitButtons (generic) 
{ 

var HTMLString = ' 1 ; 
var FormString = ' T ; 
var TotalString - T ' ; 

// Grab the appropriate HTML 

if (XDAction ( 1 Move 1 ) ) 

{ 

if (XD_gbExtraHelp) 
{ 

HTMLString = XDHeip (XD_gsHelpMoveHTML) ; 

} 

FormString = XDBuildForm ( ) ; 

return HTMLString + "</TD></TR><TR><TD>" + FormString; 

} 

else if (XDAction { 'Rename 1 ) ) 




file 
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N 
bi 



{ 

if (XD_gbExtraHelp) 
{ 

HTMLString = XDHelp (XD_gsHelpFolderRename) ; 
} 

} 

else if (XDjgbExtraHelp) 
{ 

if (XD_gnSelectedCount > 0 ! XDRootSelected ( ) ) 
{ 

if (XD_gnSelectedFileCount ) 
{ 

HTMLString = XD_gsHelpFileSelected; 

} 

else 
{ 

HTMLString - XD__gsHelpFolderSelected; 

} 

} 

else 
{ 

if (XD_gsFirstTime) 
{ 

HTMLString = XD_gsHelpFirstTimeEnter ; 

} 

else 
{ 

HTMLString = XD_gsHelpEnter; 

} 

} 



} 



// Format the help box 
HTMLString = XDHelp (HTMLString) ; 



M { 



if (! generic) 



var sSubmitButton; 

sSubmitButton = 1 /images /submit . gif ' ; 
if {XDAction ( r Rename ' ) ) 

sSubmitButton = XD_gsButtonRename; 

Ise if (XDAction ( 'Upload 1 ) ) 

sSubmitButton = XD__gsButtonUpload; 

else if (XDAction ( 'Create' ) ) 

sSubmitButton = XD_gsButtonCreate; 

else if (XDAction ( 'Delete' ) ) 

sSubmitButton * XD_gsButtonDelete; 

return '<pxinput type="submit" value= f " +sSubmitButton+ 1 ">\n f + 
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1 <input type=button value=" 1 + XD_gsButtonCancel + ' " 

onclick-"' + 

1 parent . parent . parent . XDReset ( ) ; 1 + 

1 parent . parent . parent . XDRef reshExplorer ( ) ; " >\n</ FORM> ' ; 

} 

TotalString = HTMLString + FormString; 
return TotalString; 

} 

function XDHelp (sHelp) 
{ 

return '<trxtd height=50 bgcolor-"' + XD_gsExplorerHelpBackgroundColor + 
'" colspan=3 valign=top><FONT FACE="arial, helvetica" size="-l" 
color="#666666"><b> , + XD_gsInstructions + f </b>\n f + sHelp + '\n</tdx/tr>' ; 
} 

* XDFrameShare: Share a file with another user 
*********************^ 

function XDFrameShare ( ) 
{ 

//if ( ! XDfunctionStatus (parent .parent .XD_TOOLBAR_BUTTON__SHARE) ) 
if (! XDfunctionStatus (XD_TOOLBAR_BUTTON__SHARE) ) 
{ 

return false; 
} 

var sFile = XDEscapeCharacters (XDSelected ()) ; 

frames [ 1 centerview f ] . document . location = 1 /cgi- 
bin/share_a_f ile . cgi?help=' + 

XD_gbExtraHelp + 1 &sFileName= 1 + sFile; 
return true; 

} 

function XDCheck (sName) 
{ 

return "if {! XDAllowChange ( "+sName+" ) {return false;}"; 

} 

function XDSelectedThingName ( ) 

{ 

var r = T ' ; 

var s = XDSelected () ; 

for (var i=0; i<s . length; ++i ) 

{ 

var ch=s . charAt (i) ; 

if (ch == '/') 

{ 

r - 

} 

else 
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r += ch; 



} 

return r; 



} 



:■ 



■ ^ 

f!I 

5 fc$ 



function XDSelectedThingNameMinusExtension ( ) 
{ 

var r = 1 ' ; 

var b = false; // found first time 
var s « XDSelectedThingName ( ) ; 
for {var i=s . length; i>=0 ; — i) 
{ 

var ch=s - char At ( i ) ; 
if {ch =- ' . 1 && ! b) 



{ 



} 

else 
{ 

} 



b = true; 
r = 



r = ch + r; 



} 

return r; 



} 



function XDSelectedThingNameExtension ( ) 
{ 

var r = T ' ; 

var s = XDSelectedThingName { ) ; 

var bFoundDot = false; 

for (var i=0; i<s . length; ++i) 

{ 

var ch = s. char At (i); 
if (ch == ' . ' ) 



{ 



} 

else 
{ 

} 



_ f ? . 



bFoundDot = true; 



r += ch; 



f (bFoundDot == true) 
return 1 . 1 +r; 

else 

return 1 1 ; 



***************************************** 
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* XDFrameUpload: Refresh the action frame with a form to perform the file 

* upload and set the form values during the HTML creation itself. 



function XDFrameUpload {sCurrent Folder) 
{ 

//if {! XDfunctionStatus (parent. parent. XDJTOOLBAR_BUTTON_UPLOAD) ) 

if (! XDfunctionStatus (XD_TOOLBAR_BUTTON_UPLOAD) ) 

{ 

return false; 

} 



XDActionStart ( 'Upload' ) ; 
XD_gnFrameHeight = ' 1 ' ; 

frames [ ' centerview ' ] . document . location = XDCenterView { ) ; 
return true; 



function XDFrameFolderNew () 

{ 

//if (! XDfunctionStatus (parent . parent . XD_TOOLBAR_BUTTON_NEWFOLDER) 
if { ! XDfunctionStatus (XDJTOOLBAR_BUTTONJNEWFOLDER) ) 
{ 

return false; 

} 

Ci XDActionStart ( ' Create ' ) ; 

. ;| ;J XD_gnFrameHeight = '1'; 

frames [ ' centerview ' ] . document . location = XDCenterView ( ) ; 
%k return true; 

*M } 

iU 

M function XDFrameRename () 
{ 

jp if ( ! XDAllowChange (XDSelected ( ) ) ) 

alert (XD_gsAlertRenameFolder ) ; 
return false; 

} 

//if (! XDfunctionStatus (parent. parent. XD_T00LBARJ3UTT0N_RENAME) ) 

if (! XDfunctionStatus (XD_TOOLBAR_BUTTON_RENAME) ) 

{ 

return false; 

} 

XDActionStart ( 1 Rename ! ) ; 
XD_gnFrameHeight = 'l f ; 

frames [ 'centerview'] .document. location = XDCenterView () ; 
return true; 

} 

function XDFrameDeletePrompt ( ) 
{ 

if (! XDAllowChange (XDSelected ( ) ) ) 
{ 

alert (XD_gsAlertDeleteFolder ) ; 
return false; 
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} 

//if ( I XDfunctionStatus (parent. parent. XD_TOOLBAR_BUTTON_DELETE) ) 

if (! XDfunctionStatus (XD_TOOLBAR_BUTTON_DELETE) ) 

{ 

return false; 

} 

XDActionStart ( 1 Delete ' ) ; 
XD_gnFrameHeight = 1 1 ' ; 

frames [' centerview 1 ] .document . location » XDCenterView () ; 
return true; 

} 

* XDsetSelectedToMove: takes all files that are currently selected and sets 

* their move attribute 
****************************^ 

function XDsetSelectedToMove (tag) 
{ 

if (tag . attributes . selected) 
{ 

tag . attributes . selected = 0; 
tag. attributes .move = 1; 

} 



^ for (var i = 0; i < tag. contents . length; i++) 

in { 

* if (tag. contents [i] .type ===== "element") 

Q { 

ftj XDsetSelectedToMove (tag. contents [i] ) ; 

saw? } 

U } 



r ' s| function XDFrameMove ( ) 



if ( ! XDAllowChange (XDSelected ( ) ) ) 
{ 

alert (XD__gsAlertMoveFolder ) ; 
return false; 

} 

// XXX 

XD_gsMoveSelectedList = XD_gsSelectedList ; 
XD__gsSelectedList - ""; 
XDsetSelectedToMove (grove) ; 

XDActionStart ( 'Move T ) ; 
XD_gnFrameHeight = 1 1 1 ; 

frames [' cent erview 1 ]. document . location = XDCenterView () ; 
return true; 
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/************************************* 

* XDBrowserDownloadSupported: Returns true if the browser supports the 

* download button. This includes all Netscape versions and IE 5 or later. 
********************************************************************* 

function XDBrowserDownloadSupported ( ) 
{ 

return !( (navigator . appName == "Microsoft Internet Explorer") && 
(parselnt (navigator . appVersion) <= 4 )); 

} 

function XDProf ile (f orm) 
{ 

XDProf ileEditExtensions = form. elements [ 1 bFileExtEdit 1 ] .checked; 
XD_gbExtraHelp = f orm. elements [ 1 bExtraHelp 1 ]. checked; 
XD_gbMarketing = form. elements [' bMarketing T ]. checked; 
XD_gbNewsletter = form. elements [ 1 bNewsletter 1 ]. checked; 

} 

function XDLogout{) 
{ 

var sUrl = 1 /cgi-bin/logout . cgi 1 ; 
parent .parent. location. href = sUrl; 
} 

/***************************************************************************** 

* XDSelected: Return the currently selected file or folder and remove the 

* plus that appears at then end — used the separate elements in a multi 

* file/folder list. 

***************************************************************************** / / 

function XDSelected () 
{ 

return XDjgsSelectedList . substring (0, XD__gsSelectedList . length-1) ; 
} 

function XDSelectedFolder ( } 
{ 

alert (XDjgsLengthof Folder + XD_gsSelectedFolderList . length) ; 
return XD_cjsSelectedFolderList . substring ( 0, XD_gsSelectedFolderList . length- 

l);. 

} 

function XDSelectedToMove ( ) 
{ 

return XD_gsMoveSelectedList . substring ( 0 , XD_gsMoveSelectedList . length- 

1); 

} 

/****************************^ 

* XDCleanupPath: Cleanup the passed path by removing the "/X: drive/" prefix 

* and the + postfix. 

*************************************^ 

function XDPathCleanup (sPath) 
{ 

var sCopy = sPath; 
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sCopy = sCopy. substring ( 9, sCopy. length) 
//sCopy = sCopy. substring (0, sCopy. length-1) ; 
return sCopy; 
} 

function XDDomain {) 
{ 

baseAddress = java . net ♦ InetAddress . getLocalHost ( ) ; 
userDomain = baseAddress . getHostName ( ) ; 
alert (userDomain. toString ( ) ) ; 
} 

function XDXdrive () 
{ 

XDDomain ( ) ; 

return 1 /cgi-bin/explorer_user_data . cgi 1 ; 
} 

function XDCenterView () 
{ 

return 1 /cgi-bin/f rame__generic . cgi?thtml=centerview. thtml&sFrameHeight== ' 
+ XD_gnFrameHeight ; 
} 

function XDReset () 
{ 

XD__gnSelectedCount = 0; 
XD__gnSelectedFileCount = 0; 
XD_gnSelectedFolderCount = 0; 
XD_gsSelectedList = ""; 
XD_gnSelectedFolderID = 1 1 ; 
XD_gsMoveSelectedList = ""; 
XD__gsSelectedFolderList = ""; 
XD_gsTarget Folder = ""; 
ControlsEnabled = true; 
XDresetAllMovedSelected ( ) ; 
XDActionEndO ; 
} 

function XDAllowChange (sFolder) 

. { 

if (sFolder == ' ' || sFolder ~~ \\ sFolder — T public r || sFolder 
'private 1 ) 

{ 

return false; 
} 

return true; 
} 

function XDAction (sAction) 
{ 

if (XD_gsAction == sAction) 
{ 

return true; 
} 

return false; 
} 
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// Register a new action 
function XDActionStart (sAction) 
{ 

XD_gsAction = sAction; 
} 

// Clear the current action 
function XDActionEnd {) 
{ 

XDjgsAction « « ' ; 
} 

function XDRef reshExplorer ( ) 
{ 

//reset the action before calling this function 
//or the action screen will be drawn 
XDActionEnd ( ) ; 
XD_gnFrameHeight = '40 1 ; 

//also reset if a move has been started but never finished 
XDresetAllMovedSelected( ) ; 

frames [ 1 centerview 1 ] . document . locat ion=XDCenterView ( ) ; 

} 

function XDGetButtonFrameHeight (oDocument) 
{ 

oDocument. open ("text /html") ; 

oDocument .write (XD_goButtonFrameHeight ) ; 

oDocument . close; 

} 

function XDSetButtonFrameHeight (height) 
{ 

XD_gnButtonFrameHeight=height ; 

} 

/**************************************************************************** 

** XDRef reshBanner: Refresh the banner with a new advertisment . 

****** **********************************************************************/ 

function XDRef reshBanner ( ) 
{ 

if (XDBannerOn ( ) ) 
{ 

frames [ 'banner 1 ]. document . location = 1 /cgi-bin/ads . cgi f ; 
// WIP: parent 3 twice removed {from the above line) 
} 

} 

/**************************************************************************** 
** XDBannerOn: Return true if we should display the banner. 

****** ********************************************************************** ^ 

function XDBannerOn () 
{ 

if (XD_gsPartner == 'xdrv 1 ) 
{ 
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return true; 
} 

else 

{ 

return false; 
} 

} 

function XDTellAFriend { ) 
{ 

var sUrl = 1 /cgi- 
bin/tell_a_f riend. cgi?numFriends= 1 +XD_gnNumFriendsToTell ; 
frames [ ' centerview T ] . document •location=sUrl; 

) 

function XDAddSpace { ) 
{ 

var sUrl = f /cgi-bin/addspace . cgi?action=intro 1 ; 
frames t ' centerview T ] . document . location=sUrl; 

} 

function XDDownloadClient ( ) 
{ 

var sUrl = 1 /cgi-bin/download__client . cgi 1 ; 
frames [ 1 centerview 1 ] . document . locat ion=sUrl ; 
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//uploadStatus.js 

<!-- 

function openUpload (f orm_check, url, name, f) { 

if ( ! form_check) { 
return false; 

} 

var form_length = f. length; 
var cnt = 0; 

for (var i = 0; i < f. length; i++) { 
var e = f. elements [i] ; 

if { (e.type == "file") && {e . value . length > 0) ) { 
cnt++; 

} 

} 

var amp_nof = "&nof="; 
url += amp_jiof + cnt; 

msgWindow = 

window. open (url, name, 1 width=350, height=190, toolbar=no, resize=no, scrollbars=no 1 ) 
return true; 



function createRandomID () { 

substr_rand_nura = new String (Math. random ()) ; 

return substr_rand_num. substring (2, 14 ) ; 



//— > 
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//utils.js 



* XDFormSetThingName: Set the name for the thing in the passed form. 
********************************^ 

function XDFormSetThingName (sFormName) 
{ 

sFormName. sThingName. value = XDSelectedList () ; 
} 

function XDFormSetBuf ferAct ion (sFormName, sType) 
{ 

sFormName. type. value = sType; 
} 

function XDFormSetFolderCurrent (sFormName) 
{ 

sFormName. sFolderCurrent . value - XDSelectedFolder { ) ; 
} 

function XDFormSet Select edFiles (sFormName) 
{ 

sFormName. sFile. value = XDSelectedList () ; 
} 

function XDFormSetFolderNew (sFormName, sFolderNameNew) 
{ 

sFormName. sFolderNew. value = sFolderNameNew; 
} 

* XDFormSetThingOld: Set the old name attribute for the rename CGI. 



function XDFormSetThingOld (sFormName, sThingName) 
{ 

sFormName. sThingNameOld. value = sThingName; 
} 

* XDFormSetThingNew: Set the new name attribute for the rename CGI . 

************************************ 

function XDFormSetThingNew (sFormName, sThingName) 
{ 

sFormName. sThingNameNew. value = sThingName; 
> 

function XDFormSetGeneric (sFormName) 
{ 

XDFormSetFolderCurrent (sFormName) ; 
} 

/*************************************************************************** 
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* XDPopupShow: Show a popup browser 

****************************************************************************/ 

function XDPopupShow ( 

sURL, //*** (I) The URL to open in the popup window 
nHeight, //*** (I) The height of the popup 
nWidth)' //*** (I) The width of the popup 
{ 

var w - window, open (sURL, "viewer", "location^no, toolbar^no, menubar=no, " + 
"status=no, resizable=yes, scrolling=yes, scrollbars=no, " + 
"width="+nWidth+",height="+nHeight) ; 

//*** make sure the opener knows who the parent is 
if {w.opener == null) w. opener = self; 

focus on the newly created window 
w. focus ( ) ; 
} 

function XDSelectedList ( ) 
{ 

return XD_gsSelectedList; 
} 

function XDBackgroundColor ( ) 
{ 

return XD_gsExplorerBackgroundColor; 
} 

function XDBackgroundlmage ( ) 

{ 

return XD_gsBackgroundImage; 
} 

function XDSelectedFolder ( ) 
{ 

return XD_gsSelectedFolderList . substring ( 0 , XD_gsSelectedFolderList . length- 

1); 

} 

**************************** ******************************************* 

* XDCleanupPath: Cleanup the passed path by removing the "/X: drive/" prefix 

* and the + postfix. 

************************************** **************************************/ 
function XDPathCleanup (sPath) 
• { 

var sCopy = sPath; 

sCopy = sCopy. substring ( 9, sCopy. length) 

//sCopy = sCopy.substring{0,sCopy,length-l) ; 
return sCopy; 

} 

function XDMultiSelect (sValue) 
{ 

if (sValue != 'null' && sValue !- "") 
{ 

m sMultiSelect = sValue; 
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} 

else 

{ 

return m_sMultiSelect; 
} 

} 



N 



Ul 



function HTMLNavigation () 
{ 

var sHTML - HTMLStart ( ) 

+'<table width="100%" border="0" cellspacing="0 " 
cellpadding="0"> f 

+ '<tr align="left" valign="top" bgcolor="#5EB114 "> ' 

+ ? <tdximg src= Vimages/main/logo_top . gif " width="153" 
height="28"x/td>' 

+'</tr><tr>' 

+ '<tdximg src=" /images /main/logo_center . gif " width="171" 
height="97" alt="X: drive"x/td> T 
+ '</trxtr>' 

-1- 1 <tdximg src=" /images /main/race__logo_bottom. gif " width="171" 
height^'SS^/td^ 

+ l </tr></table> , 

+ '<a target="toolbar" href ="http : //www. mit . edu">MIT</a> ' 



Q - + 1 </BODY>\n</HTML> 1 ; 



return sHTML; 
} 



function HTMLStart () 
{ 

return "<HTML>\n" 

+ f <body bgcolor="#6961AB" topmargin="0" lef tmargin="0 " marginheight="0" 
W marginwidth="0" text= " # FFFFFF" link= rf #FFFFFF" { onload} >' 
+"\n"; 
} 



function HTMLEnd (} 
{ 

return "\n</BODY>\n</HTML>\n" ; 
} 

function RedrawToolBar ( ) 
{ 

var sWindow = 1 window. toolbar 1 ; 

sWindow. document . write (HTMLStart ( ) + 1 test 1 +HTMLEnd ( ) ) ; 
} 

function XDEscapeCharacters (str) 
{ 

var A = new Array ( } ; 



A = str. split ("+") ; 
str = A. join ( "%2B" ) ; 

A = str. split (" ") ; 
str = A. join { "+") ; 

A - str. split ("%") ; 
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str - A. join ( "%25") ; 

A - str. split ("a") ; 
str = A. join ( "%26") ; 

return str; 

} 
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//verifyjib.js 



<! — Begin Hiding from older browsers 

fx******************************************* 
*** Javascript library of functions commonly 

*** used in HTML forms. 



validateForm ( form) 

attaches to the submit button and takes the 
form as an argument. Validates all the 
fields and will only let the form be submitted 
if all the fields validate. 



checkForm( ) 

attaches to nothing. Is used by the script 
internally to allow compel ( ) to function w/o 
calling alert (), which would cause an infinite 
, . loop. 

requireElements (num) 

attaches to onLoad to initialize the array 
\= of required fields in the form. 

Ul 

\J addRequiredElements ( ) 

\j attaches to nothing. Is used internally to 

yj construct a array of the names of all the 

required fields in a form. For this to work 

the form needs a "requiredElements" hidden 
5 s : input tag. It should be of this format: 

ru 

<INPUT TYPE="hidden" NAME=" requiredElements" VALUE=" name : email : "> 

Q List the required field names in order that 

fy they appear in the form. End each name with 

a 1 : 1 and lead the whole value with a blank 

space. If this tag is not used, then 

validateRequiredElements will identify a 

missing required field by its number in liue 

of the name. 



compel (textf ield) 

attaches to an onBlur event on a textfield. 
This causes focus to be kept on a textfield 
until checkForm() determines that they user 
has filled it out correctly. 

required (textfield, num) 

attached to an onBlur of a field is required. 
The number is it 1 s location on the 
required_elements array, i.e. 

<INPUT TYPE="text" NAME-"name" onBlur="required ( this , 0) "> 
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This tag declairs "name" as the first 
required field in the form. 



validatePhone (textf ield) 

attaches to an onChage of a textfield. This 
function validates to true only if the 
textfield is blank or contains only 
0-9, r , {, or ) 

validateEmail (textfield) 

attaches to an onChage of a textfield. This 
function validates to true only if the 
textfield is blank or contains an @ 

validateDate (textfield) 

attaches to an onChage of a textfield. This 
function validates to true only if the 
textfield is blank or contains a date in 
the format DD-MON-RRRR 

validateDate_old (textfield) 
j*s attaches to an onChage of a textfield. This 

Q function validates to true only if the 

textfield is blank or contains a date in 
H the format DD/MM/YY 

is! 

•f* ■ validateNum (text field) 

% l attaches to an onChage of a textfield. This 

Si function validates to true only if the 

HI textfield is blank or contains a number 

9 between -1 and infinity 

f 1 1 validateMoney (textf ield) 

jj> attaches to an onChage of a textfield. This 

T function validates to true only if the 

j^J textfield is blank or contains a number 

between with two decimal places (ie 2.56) 



ry 



conf irmDelete (textfield) 

attaches to an onClick on a submit button 
used as a delete button that you want the 
user to confirm before engaging. 

reset Jd ( ) 

attaches to an onClick on a submit button. 
If you have a reset button, used conf irmDelete 
or have a button that needs to override the 
validity of the form, this function should 
be attached to these buttons to allow them 
to function. 



************************************************** 



/ 



emailOK = true; 
phoneOK = true; 
dateOK = true; 
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lengthOK ~ true; 
all_numOK = true; 
alljnaoneyOK = true; 
deleteOK = true; 
yearOK - true; 

required_elements = new Array (); 
required_elements_names = new Array (}; 
blurred = ""; 
in_required = false; 
submitted = false; 
var submitCount; 

function validateForm{f orm) { 
addRequiredElements (form) ; 
if (lemailOK) { 
alert (XD_gsValidateEmail) ; 
return false; 
} else if (IphoneOK) { 
alert (XD_gsValidatePhone) ; 
return false; 
} else if (IdateOK) { 
H alert (XDjgsValidateDate ) ; 

Q return false; 

Q } else if (! lengthOK) { 

S s | alert (XD_gsValidateLength) ; 

},] return false; 

1*1 } else if ( !all_numOK) { 

v 1 alert (XD_gs Validate Number) ; 

.J return false; 

yi } else if ( iall_moneyOK) { 

^ alert (XD_gsVaiidateMoney) ; 

01 return false; 

fl| } else if ( !yearOK) { 

h& alert (XD_gsValidateYear ) ; 

iy& return false; 

p| } else if (IdeleteOK) { 

return false; 
} else if ( ! validateRequiredElements ( ) ) { 
return false; 

} 



function compel (textfield) { 
if (blurred == "") { 

blurred = textfield; 

} 

if { ! checkForm{ ) ) { 
blurred. focus ( ) ; 
blurred. select ( ) 

} 

if {checkFormO && ! in_required) { 
blurred = ""; 

} 



function checkFormO { 
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if ( lemailOK) { 

return false; 
} else if ( IphoneOK) { 
return false; 
} else if ( IdateOK) { 

return false; 
} else if (ilengthOK) { 

return false; 
} else if (iall_numOK) { 

return false; 
} else if { ! all_moneyOK) { 

return false; 
} else if ( iyearOK) { 

return false; 
} else if ( ideleteOK) { 
return false; 
} else { 

return true; 

} 

} 



function requireElements (num) { 
var i; 

for {i=0; i < num; i++) { 

required_elements [i] = false; 

} 



function addRequiredElements ( form) { 
var found = false; 

for (var n=0; n < form. length; n++) { 

if ( form. elements [n] .name — "requiredElements" ) { 
found = true; 

} 

> 

if (found) { 

var length = form. requiredElements . value . length; 
var start_index = 0; 
var end_index = 0; 
var num — 0; 

for (var i=0; i < length; i++) { 

var theChar = form. requiredElements . value . charAt (i) 
if (theChar ==":») { 

start_index = end_index + 1; 

end__index = i; 

var string = 

form. requiredElements .value. substring (start_index, end_index) ; 

num = required_elements_names . length; 
required_elements_names [num] = string; 

} // end of if ":" 
} //end for loop 
} // end of found 

} 
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//check to see if the year is a 4-digit value greater than 1900 

function validateYear (textf ielcl) 

{ 

yearOK = true; 

//make sure the file contains only numbers 
for (var n=0; n < textf ield. value . length; n++) 
{ 

var theChar = textf ield. value . charAt (n) ; 
if ( (theChar >= "0") && (theChar <= "9")) 

{ 

//do nothing, assume it's still true 

} 

else 
{ 

//contains non numeric elements 
yearOK=false; 



} 



} 



if (! yearOK) 
{ 

alert (XD_gsValidateContainNums ) ; 

} 



'2 if (textf ield. value < 1900) 

m { 

« yearOK = false; 

Q alert (XD_gsValidateGreaterl900) ; 
} 



if (textf ield. value. length != 4) 
{ 

yearOK = false; 

alert (XD_gsValidateFourDigits) ; 

} 



// Checks for a properly formated email 

function validateEmail (textf ield) 

{ 

emailOK = true; 

if ( (textfield. value "") || (textf ield. value . indexOf ( "8" ) < 0) 
{ 

emailOK = false; 

alert (XD_gsValidateEmailFormat ) ; 
return false; 

} 

return true; 
} 



function required (textf ield, num) 
{ 
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var alert_show = false; 
in_required = true; 
if (blurred == "") 
{ 

alert_show - true; 
blurred = textfield; 

} 



if (textfield. type ===== "select-one") 

{ 

//if the first option is chosen, assume that is not a real 
//choice, simply a default 
if (textfield. selectedlndex == 0) 
{ 

if (alert_show) 
{ 

alert (XD_gsValidateField + textfield. name + 
XDjgsValidateRequired) ; 

} 

blurred. focus ( ) ; 
blurred. select { ) ; 
required_elements [num] = false; 
^ }//end if selectedlndex empty 

else if (textfield. selectedlndex > 0) 
{ 

blurred = ""; 

required_elements [num] = true; 
in_required = false; 
}//end else 



}//end select-one 



if (textfield. type ===== "text" | | textfield. type == "textarea" | | 
textfield. type ===== "password") 
{ 

if (textfield. value . length==0) 
{ 

if (alert_show) 
{ 

alert (XD_gsValidateField + blurred. name + 
XD_gsValidateRequired) ; 

}//end alert_show 
blurred. focus () ; 
blurred. select ( ) ; 
required_elements [num] = false; 
} //end if length empty 
else if (textfield. value. length > 0) 
{ 

blurred = ""; 

required___elements [num] = true; 
in_required = false; 
}//end else 
} //end if text 

} 
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function validateRequiredElements ( ) { 
var length « required_elements . length ; 
for (var i = 0; i < length; i++) { 
if { ! required_elements [i] ) { 

if (required_elements_names [i] — "") { 

alert (XD_gsValidateAllRequiredField + i + XD_gsValidateNotFilled) ; 
return false; 
} else { 

alert (required_elements_names [i] • + XD_gsValidateNotFilled) ; 
return false; 

} 

} // end of false element 
} // end of array 
return true; 



function validatePhone ( textf ield) { 
phoneOK=true; 
var digits = 0; 

//Number can only contains ten digits and proper characters 
for (var i = 0; i < textf ield. value. length; i++) { 
var theChar = textf ield. value . charAt (i) ; 
if ({theChar >= "0") && (theChar <= "9")) { 
digits++; 
continue; 

} 

if (theChar == rr ) continue; 
if (theChar — "-") continue; 
if (theChar === "(") continue; 
if (theChar -= ")") continue; 

/ /else 

phoneOK = false; 
} //end for 

phoneOK - phoneOK && (digits = 10); 
if (textfield. value == "") { 
phoneOK = true; 

} 

if (! phoneOK) { 

alert (XD_gsValidatePhoneFormat ) ; 

} 

return phoneOK; 



//Check that the date is in the form of DD-MON-YY 
function validateDate (textf ield) { 
dateOK-true; 

if ( (textfield. value. charAt (0) > "3") || (textf ield. value . charAt (0) < 

"0")) { 

dateOK^false; 

} 
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'0")) 



"0") ) 



"0") 



"0") ) 



•0") ) 



if ( (textfielcL value. charAt(l) > "9") I I (textfield. value. charAt (0) < 
dateOK=false; 

if { (textfield. value. charAt (7) > "9") || (textfield. value . charAt ( 7 ) < 
dateOK=false; 

if ( (textfield. value. charAt (8) > "9") || (textfield. value . charAt ( 8 ) < 
dateOK=false; 

if ( (textfield. value. charAt (9) > "9") || (textfield. value . charAt ( 9) < 
dateOK=false; 

if { (textfield. value. charAt (10) > "9") || (textfield. value . charAt ( 10 ) < 
dateOK=f alse; 

if (textfield. value. charAt (2) != "-") { 
dateOK=false; 

if (textfield. value. charAt (6) 1= "-") { 
dateOK=false; 



var month = textfield. value . substring (3, 6) ; 
month = month. toUpperCase () ; 

if ( ! (month "JAN" | | month == "FEB" | | 



month == "MAR" 
month == "MAY" 
month == "JUL" 
month == "SEP" 
month == "NOV" 
dateOK= false; 



I month ~« "APR" | | 

I month = "JUN" I | 

I month == "AUG" | I 

I month == "OCT" | i 

I month == "DEC") ) { 



} 



if (textfield. value ===== "") { 
dateOK = true; 

} 

if (IdateOK) { 

alert (XD__gsValidateDateFormat ) ; 

} 



• //Check that the date is in the form of DD/MM/YY 
function validateDate_old (textfield) { 
dateOK=true; 

if ( (textfield. value. charAt (0) > "9") || (textfield. value. charAt (0) < 

"0")) { 

dateOK=false; 

} 

if ( (textfield. value. charAt (1) > "9") || (textfield . value . charAt ( 0 ) < 



f 0") ) 



dateOK=false; 

} 

if (textfield. value. charAt (2) != "/") { 
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dateOK=false; 

} 

if { (textf ield. value. charAt (3) > "3") || ( textf ield. value . charAt ( 3) < 

"0")) { 

dateOK=false; 

} 

if ( (textfield. value. charAt (4) > "9") || (textf ield. value . charAt (4 ) < 

"0")) { 

dateOK=false; 

} 

if (textfield. value. charAt (5) !== "/") { 
dateOK=false; 

} 

if ( (textf ield. value. charAt (6) > "9") || (textf ield. value . charAt (7 ) < 

"0"}) { 

dateOK=false; 

} 

if ( (text field. value. charAt (7) > "9") M (textf ield. value . charAt (7 ) < 

"0")) { 

dateOK=false; 

} 

if (textfield. value == "") { 
dateOK = true; 

} 

if (JdateOK) { 

alert (XD_gsValidateDateFormat ) ; 

} 

} 



// checks to see that the textfield contains only numbers 
function validateNum (textf ield) 

{ 

all numOK = true; 



for (var i=0; i < textf ield. value . length; i++) 
{ 

var theChar = textf ield. value . charAt (i ) ; 
if ((theChar < "0") || (theChar > "9")) 
{ 

if (textfield. value != "-1") 
{ 

all_numOK = false; 
alert (XD_gsValidateContainNums ) ; 
break; 
} // end of if not - 
} //end if not # 
} //end for 

return all numOK; 



// checks to see that the textfield contains two decimal places 
function validateMoney (textf ield) { 



all__moneyOK = true; 



d:\my documents\x-dnve\js scripts\aU js files with filenames.doc 



68 of 82 



Q 



> 



for (var i=0; i < textfield. value . length; i++) { 
var theChar = textfield. value, charAt (i) ; 
if ((theChar < "0") I I {theChar > "9")) { 
if (theChar !=".") { 

all_moneyOK « false; 
alert (XD_gsValidateMoney Format ) ; 
break; 

} 

} //end if not # 
} //end for 

return all_moneyOK; 



function validateLength (textfield, len) 
{ 

lengthOK = true; 

if (textfield. value. length < len) 
{ 

lengthOK = false; 

alert (textfield. name + XD_gsValidateLengthFormat + len + 
XD_gsValidateChars) ; 
} 

} 

// attache to delete buttons to confirm 
function conf irmDelete (textfield) { 

deleteOK = conf irm (textfield. value + ": Are you sure?"); 

} 



// attache to other buttons, such as add, to allow them to submit 
// after a failed delete confirm 
H function reset_b() { 

C3 deleteOK = true; 

flj emailOK = true; 

phoneOK = true; 
dateOK = true; 
.lengthOK = true; 
yearOK = true; 
all__numOK = true; 
deleteOK = true; 
var length - required_elements . length; 
for (var i=0; i < length; i++) { 

required_elements [i] = true; 

} 

} 

// a function to error check with 
function test ( ) { 
alert ("Testing! ") 

} 



II checks to see that the textfield contains only numbers and is 
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//between 13 and 16 characters in length 

function validateLengthandlnput (textf ield, minLength, maxLength, dateType) 
{ 

all_numOK = true; 

if ( (textf ield. value. length<minLength) | | 
(textfield. value. length>maxLength) ) 
{ 

all_nuitiOK = false; 

if {minLength == maxLength) 
{ 

if (dateType -= "ExpDate") { 
alert (XD_gsValidateExpDateFormat ) ; 

} 

else { 

alert (XD_gsValidateDateFormat + maxLength + 
XD_gsValidateChars) ; 

} 

} 

else 

M { 

^ alert (XD_gsValidateCard + minLength + XD_gsValidateAnd + 

maxLength + XD_gsValidateChars } ; 

y } 

return all numOK; 

N ' } 



y = 



ry 



for (var i=0; i < text field. value . length; i++) 
{ 

var theChar = textf ield . value . charAt ( i) ; 
if ((theChar < "0") || (theChar > "9")) 
{ 

if (textfield. value != "-1") 
{ 

all_numOK = falser- 
alert (XD_gsValidateContainNums) ; 
break; 
} // end of if not - 
} //end if not # 
} //end for 

return all numOK; 



} 



function checkRequired ( f orm) 
{ 

var complete = true; 

var length = form. elements . length; 

addRequiredElements (form) ; 
for (var i=0; i<length; i++) 
{ 

for (var j=0; j < required_elements__names . length; j++) 
{ 

if (form. elements [i] .name — required_elements_names [ j ] ) 
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if ( {form. elements [i] .type == "text") || 

(form. elements [i] . type — "password") I I 
(form. elements [i] .type == "textarea") 

) 

{ 

if (form. elements [i] . value == !f ) 
{ 

complete = false; 
break; 

} 

} 

else if (form. elements [i] .type == "select-one") 
{ 

if ( form. elements [i] . selectedlndex == 0) 
{ 

complete = false; 
break; 



Si 



} 

else 

{ 

//don't worry about radio button 

} 



W } 

} 



} 

if (! complete) 
{ 

//Temp bug fix: could not read any variable from english_text . j s 
(scope problem?) 
f 5 ^ //was: alert (XD_gsValidateAllRequired) 

^ alert ("A required field is not filled out. Please make sure all 

C3 required fields are filled out before hitting submit."); 
FU return false; 

} 

else 

• { 



/* 

Check if we've already submitted 
*/ 



if (! submitted) 
{ 

submitted = true; 

submitCount = 0; 
//took this line out because it was breaking IE 
// and it's not used for submitting the form anyway 

//form. submit ( ) ; 

return true; 
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submitCount += 1; 



it; 



info 1 



} 



var gender = ; 
var message « 

if ( form. gender . value ~ "1" | | form. gender . value "2") 
{ 

var gender; 

if (form. gender. value ~ "1") 
{ 

gender = "Dude" 

} 

else 
{ 

gender = "Lady" 

} 

} 



PS if (submitCount ===== 2) 



{ 



message - " Hey " + gender + " give me a second while I send 



} 

if (submitCount == 3) 
{ 

message = "Okay... now your just pressing too much"; 

} 

if (submitCount > 1 && submitCount < 4) 
{ 

alert (message) ; 

} 

} 

return falser- 



function CheckPassword(form) 
{ 

var length = form. elements . length; 
var change=l ; 
//Make sure passwords match 
if (form. elements [1] .value != 

form. elements [2] .value) 

{ 

alert (XD_gsValidatePasswords ) ; 
change=0; 
return false; 

} 

if (change===l) 
{ 
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form. submit ( ) ; 

} 

return true; 

} 



Q 

a 
w 

N 

m 

s 

a 
ru 

M 
M 

a 
ru 
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//xparse.js 



function ^element 0 



{ 

this. type - "element"; 
this. name = new StringO; 
this .attributes = new Array (); 
this . contents ~ new Array () ; 
this.uid = _Xparse_count++; 
_Xparse__index [this . uid] =this; 

// Added by Martin Hald 
this. attributes. folder = 0; 
} 



f ! 3 



function _chardata ( ) 
{ 

this. type = "chardata"; 
this. value = new StringO; 
} 

function _pi ( ) 
{ 

this. type = "pi"; 
this, value = new StringO; 

SJ } 

w? function _comment ( ) 

L { / 

M this. type = "comment"; 

fU this. value = new StringO; 

Ms } 

bus?? 

g // an internal fragment that is passed between functions 

function _f rag 0 

U4 { 

this.str = new StringO; 
this.ary = new Array 0; 
this, end = new StringO; 
} 



///////////////////////// 

//. global vars to track element UID's for the index 

var _Xparse_count = 0; 

var _Xparse_index = new Array O; 



///////////////////////// 

//// Main public function that is called to 

//// parse the XML string and return a root element object 

function Xparse(src) 
{ 

// Hack added by Martin Hald to fix the grove [x] not an object error 
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// where the grove object array indexes was shifted up by the previos 
// parsing 
_Xparse_count = 0; 



var frag = new _frag(); 

// remove bad \r characters and the prolog 
frag.str = _prolog (src) ; 

/ / create a root element to contain the document 
var root = new ^element ( ) ; 
root . name= XD_gsRootPath; 
root .attributes . folder = 1; 
root .attributes, show « 1; 

// main recursive function to process the xml 
frag « _compile (f rag) ; 

// all done, lets return the root element + index + document 
root . contents = frag.ary; 
root. index = _Xparse_index; 
Ml _Xparse_index = new Array (); 



return root; 
} 

///////////////////////// 



///////////////////////// 

//// transforms raw text input into a multilevel array 
function __compile (f rag) 
{ 

// keep circling and eating the str 
while (1) 
{ 

// when the str is empty, return the fragment 
^ if (frag. str. length == 0) 

{ 

return frag; 
} 



var TagStart = frag. str . indexOf ("<") ; 



if (TagStart != 0) 
{ 

// theres a chunk of characters here, store it and go on 
var thisary = f rag. ary. length; 
frag.ary[thisary] = new _chardata ( ) ; 
if (TagStart == -1) 
{ 

frag.ary [thisary] .value = _entity (frag. str) ; 

frag.str = ""; 

} 

else 

{ 
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frag. ary [thisaryj .value = 
^entity (frag. str . substring (0, TagStart) ) ; 

frag. str = frag. str. substring (TagStart, frag. str. length) ; 
} 

} 

else 

{ 

// determine what the next section is, and process it 
if (frag. str. substring ( 1, 2) == "?") 
{ 

frag = _tag_pi ( f rag) ; 
} 

else 

{ 

if (frag. str. substring (1,4) == "!--") 
{ 



else 



frag = _tag_comment ( f rag) ; 
} 

{ 

if ( frag. str. substring (1, 9) == n ! [CDATA[ " ) 
{ 

frag = _tag_cdata (frag) ; 
} 

else 

{ 

if (frag. str. substrings, frag. end. length + 3) == "/" + 
frag. end + ">" || _remove_escapes (frag, str . substring (1, frag. end. length + 3)) == 
"/" + frag. end) 

{ 

// found the end of the current tag, end the 

recursive process and return 

frag. str = frag . str . substring ( frag . end. length + 

3, frag. str. length) ; 

frag. end = ""; 
return frag; 
} 



else 



{ 

frag = _tag_element ( f rag) ; 
} 



} 



} 



return ""; 
} 



1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 /! 1/ 1 1 



i I II 1 1 1 li I i 1 1 1 1 1 1 1 1 1 1 1 1 

I /II functions to process different tags 
function XDTrueSpacelndex (f rag) 
{ 
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var length = frag. length; 
for (var i=0; i < length; i++) 
{ 

if ( (frag.charAt (i) == " ") 

&&{frag.charAt(i-l) != "\\") 

) 

{ 

break; 
} 

} 

return i; 
} 



function __tag_element ( f rag) 
{ 

// initialize some temporary variables for manipulating the tag 
var close = frag. str . indexOf { ">") ; 

var empty = (frag. str . substring (close - 1, close) == "/"); 
fi if (empty) 

ri close -= 1; 

l! } 

// split up the name and attributes 
N var starttag = ^normalize (frag. str. substring (1, close) ) ; 

U1 //var nextspace = starttag . indexOf ( " "); 

s var nextspace = XDTrueSpacelndex (starttag) ; 

Q var attribs = new String { ) ; 

var name = new String { ) ; 
if (nextspace 1= -1) 
{ 

name = starttag . substring (0, nextspace) ; 

attribs = starttag. substring (nextspace + 1, starttag. length) ; 
} 

else 

{ 

. name = starttag; 
} 

var thisary = f rag . ary. length; 
f rag . ary [thisary] = new _element(); 
frag . ary [thisary] . name = _remo ve_e scapes (name) ; 

if (attribs. length > 0) 
{ 

frag. ary [thisary] . attributes = _attribution (attribs ) ; 
} 

if {! empty) 
{ 

// ! 1! ! important, 

// take the contents of the tag and parse them 
var contents = new frag(); 
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contents. str = frag. str. substring (close + 1, frag . str . length) ; 

contents. end = name; 

contents = ^compile (contents) ; 

frag. ary[thisary] .contents = contents. ary; 

frag. str = contents . str; 

} 

else 

{ 

frag. str - frag. str . substring (close + 2, frag . str . length) ; 
} 

return frag; 
} 

function _tag_pi ( f rag) 
{ 

var close = f rag . str . indexOf ("?>") ; 
var val = frag. str . substring (2, close) ; 
var thisary = frag . ary . length; 
frag. ary [thisary] = new _pi(); 
frag . ary [thisary] .value = val; 

frag. str = frag . str . substring (close + 2, frag . str . length) ; 
|WI return frag; 

Q } 

Ct function tag comment (frag) 

"1 { " " 

f": var close = frag, str . indexOf ( " — >"); 

. ™i var val = frag. str . substring ( 4, close) ; 

H var thisary = frag. ary . length; 

U! frag. ary [thisary] = new ^comment ( ) ; 

5- frag, ary [thisary] . value = val; 

Q frag. str = frag . str . substring (close + 3, frag . str . length) ; 

n\ return frag; 



function _tag_cdata ( f rag) 

m { 

0* var close = f rag . str . indexOf {"]]>") ; 

var val = frag. str . substring (9, close) ; 
var thisary = frag. ary . length; 
frag. ary [thisary] = new _chardata(); 
frag. ary [thisary] .value = val; 

frag. str = frag . str . substring (close + 3, frag . str . length) ; 

return frag; 

} 

///////////////////////// 



////////////////// 

//// util for element attribute parsing 
//// returns an array of all of the keys = values 
function _attribution (str ) 
{ 

var all = new Array (); 
while (1) 
{ 
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var eq - str . indexOf ( "=" ) ; 
if (str. length =-0 || eq ===== -1} 
{ 

return all; 
} 



var idl = str.indexOf ("\ f ") ; 
var id2 = str . indexOf ( "\ " " ) ; 
var ids = new Number () ; 
var id = new String (); 

if ({idl < id2 && idl != -1) || id2 ===== -1) 
{ 

ids = idl; 
id = "V"; 

} 

if ((id2 < idl || idl ===== -1) && id2 ! = -1) 
{ 

ids = id2; 
id = "\ ,,n ; 
} 

var next id = str . indexOf (id, ids + 1); 
var val = str . substring (ids + l,nextid); 

var name = xstrip (str . substring (0, eq) ) ; 
var entity = new String ( ) ; 
entity = ^entity (val ) ; 
all [name] = entity; 

str = str . substring (nextid + 1, str . length) ; 



return all; 
} 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 



1 1 1 / 1 1 / 1 1 1 i 1 1 1 / 1 1 1 1 / 1 1 
1 1 1 1 util to remove \r characters from input string 
3 //// and return xml string without a prolog 
U function _prolog(str) 
{ 

var A = new Array ( ) ; 



A = str. split ("\r\n") ; 
str = A. join ( "\n" ) ; 
A = str. split ( f, \r ,f ) ; 
str - A. join ( "\n" ) ; 



var start = str . indexOf ("<") ; 

if (str .substring (start, start + 3) ===== "<?x" || str . substring ( start , start + 
3) »<?x" ) 

{ 

var close = str . indexOf ("?>") ; 

str = str. substring (close + 2, str . length) ; 

} 

var start = str . indexOf ( "< ! DOCTYPE" ) ; 
if (start != -1) 
{ 

var close = str . indexOf (">", start ) + 1; 
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var dp = str . indexOf ("[", start) ; 
if (dp < close && dp ! = -1) 
{ 

close - str.indexOf ("]>", start) + 2; 
} 

str = str . substring (close, str . length) ; 

} ■ 
return str; 
} 

////////////////// 



function _remove_e scapes (str) 
{ 

var A = new Array ( ) ; 
A - str. split {"\\") ; 
str - A. join ( "" ) ; 
return str; 
} 

////////////////////// 
y. //// util to remove white characters from input string 
!»* function xs trip (str) 

S < 

n A - str. split (" ") ; 

str - A. join( M ") ; 

A = str. split ("\n") ; 

str - A. join ( "" ) ; 

A = str. split ("\t") ; 

str = A. join ( "" ) ; 



//A = str. split {" ") ; 



a //str = A. join ( "  " ) ; 

J //A = str. split ("\n") ; 

//str = A. join("") ; 
Z //A - str. split (" ") ; 

J //str = A. join ( "" ) ; 

II //A = str. split ( "\t" ) ; 

//str = A. join ( "" ) ; 

return str; 
} 

////////////////// 



I tl 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! 1 1 1 

1 1 1 1 util to replace white characters in input string 
function ^normalize (str ) 
{ 

var A = new Array ( ) ; 

A - str. split ("\n") ; 
str « A. join ( " ") ; 
A = str. split ("\t") ; 
str - A. join { " ") ; 

return str; 
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} 

////////////////// 



////////////////////// 

//// util to replace internal entities in input string 
function ^entity (str) 
{ 

var A = new Array { ) ; 

//A = str. split ("<"} ; 

//str - A. join ("<") ; 

//A = str. split (">") ; 

//str - A. join (">" ) ; 

//A = str. split <""") ; 

//str = A. join { "\"" ) ; 

//A - str. split ("&apos;") ; 

//str = A. join ( "\ T ") ; 

//A = str. split ("&") ; 
//str = A. join { ) ; 

//Get rid of any escapes 
S A = str. split ("\\") ; 

H str = A. join ( ) ; 

^ return str; 

M } 

SJ ////////////////// 

yl 

i~s : 
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